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Introduction 

If you consider the General Ledger as the heart of the accounting department, 
then Accounts Receivable must be considered the pulse of the company. The flow 
of cash (from goods sold) must be monitored precisely to keep a company 

healthy. Anything that will assist in getting statements out to customers quickly , 
and accurately, can be a vital aid to a company. The Radio Shack Accounts 
Receivable System (ARS) is just such an aid. 

The ARS will produce professional-looking statements, aging reports, and 
automatic totals for posting to your company's General Ledger. The ARS will tell 
you exactly how long your customers take to pay their bills. 



How To Use The ARS 

After you "setup" the Accounts Receivable System, daily operations will consist 
of: entering transactions, posting transactions, and adding new customer 
accounts. 

Once a month, the "End-of-Period Processing" will take place. This function 
prints customer billing statements. It will update each account's status 
automatically. (Reports and summaries can be printed at any time.) 



Features Of The ARS 

1. Complete Billing Operation At The End Of The Month. 

2. Prints Billing Statements For Mailing. 

3. Automatic Updating Of Customer Records. 

4. Prints The Following Reports: 

Complete Transaction File Report 

General Ledger Recap Report 

Complete Account Listing 

Account Listing By Aging Status 

Accounts Receivable Analysis By Aging Status 

Posting Report 

5. Provides Totals For General Ledger Postings. 

6. Advertising Message Option On Billing Statements. 

7. Easy Access To Customer Accounts For Updating, Deleting, or Printing 



Some Decisions You Must Make 



Storage Capacity 

Before you can enter data, you will be asked to choose which of three Storage 
Capacity Options is best suited to your needs. Once you choose the storage 
capacity option, you cannot change the capacity until "End of Period 
Processing". At that point, you can increase the number of accounts if you desire. 
You cannot decrease the account capacity. 

Two Disk System Options: 

1. 300 accounts and 1000 transactions per month. 

2. 100 accounts and 2000 transactions per month. 

Three Disk System Option: 

3. 500 accounts and 2500 transactions per month. 



General Ledger Code Numbers 

Any Accounts Receivable System must have some method of keeping track of 
transactions (for posting to a company's General Ledger). The Radio Shack ARS 
uses a General Ledger "Code Number". For each GL "Code Number" (1-24), 
there must be a corresponding General Ledger "Account Number". Your firm's 
General Ledger account number (up to four digits) will be used by ARS to 
generate totals for each General Ledger account. 

A five letter abbreviation of the General Ledger account name can be included in 
the GL "code". For example: "14-GASH" could be the GL "code" for a General 
Ledger "CASH SALES" account. 

If your company has General Ledger account numbers larger than four digits, 
you might want to use the four most significant numbers. For example: you could 
change 23001 to 2301 or 3001. 

Consider using Radio Shack's General Ledger 1.1 in conjunction with ARS since 
it is designed for four digit GL account numbers. Radio Shack's ARS adheres to 
generally accepted accounting principles. 



Setting Up AMS 



Setting Up ARS 

Before you begin using the Accounts Receivable System, you should make a copy 
(BACKUP) of your Program Diskette. Keep your original Program Diskette in a 
safe place. You must also prepare (FORMAT) a Data Diskette (which will be used 
to store your customer accounts and each month's transactions). 

If you are not familiar with BACKUP and FORMAT functions, refer to 
Appendices A and B (at the back of this manual) for instructions. 

The ARS "SETUP" program is used only once to enter information about your 
company into the computer. After the "Set Up" is complete, you will run "ARS" 
every time you use the system. (If you need to modify your company data, the 
ARS "SETUP" program has a built-in "Modification" option.) 

Follow these steps in setting up the Accounts Receivable System: 

1. Turn on the Disk Drives, Printer, Video Display and the Expansion Interface. 



2. 
3. 

4. 
5. 



Insert the ARS Backup Program Diskette in Drive #f and close the door. 

Insert the formatted Data Diskette in Drive #1 and close the door. (If you 
have a three-Drive system, place another formatted Data Diskette in Drive 
#2.) 



Turn on the TRS-80 Keyboard. 

The screen will show: 

DOS READY 
HOW MANY FILES?_ 
MEMORY SIZE?_ 
READY >_ 



This is what you type : 

EElMLlEand press [ENTErI 
Press I ENTER! 



*Press [ENTER] 

liiQiiffliEQ and press [ENTER] 



Set Up (continued) 



The screen will show : 




This is the Initial Set Up, so press [JJ 
The screen will show: 




You can now tell ARS a little about your company and its policies concerning 
Accounts Receivable. Type the information as it is requested by the program. The 
small blocks indicate the amount of space available for each entry. 



Set Up (continued) 



Press lENTERl , after you finish each line. Most entries will require you to press 
lENTERl after you type in the information. If you are just answering a Y/N 
question, or selecting functions, you simply press the appropriate key — the 
TRS-80 will do the rest. 

Do not type a percent sign for the monthly finance charge rate. When you enter 
the finance charge rate, the computer will automatically add a % sign to the 
number. For example, if you type 1.5, then after 30 days, the customer will be 
charged VA% of the unpaid balance each month as a late charge. 

The "Minimum Payment" is an amount your firm uses as a "cut-off" point. Any 
balance owed below the "minimum payment" must be paid in full. An amount 
above the "minimum payment" may be paid in pre-arranged installments. These 
installments are a percentage of the total balance. The payments can be different 
for every customer. If the installment payment works out lower than the 
"minimum payment", the customer will be charged the "minimum payment" 
each month. See page 14. 

After Minimum Payment, the program will ask: 

ARE YOU USING Bl LLING STATEMENT FORMS WITH YOUR 
COMPANY NAME PRE-PRINTED ON THE FORM? (Y/N)_ 

Just press the key for Yes, or the ED key for No. 

The screen will show: 

ASSIGNMENT OF GENERAL LEDGER CODES (GLC) 

GLC: 1 & 2 ACCOUNTS RECEIVABLE (A/R) GL ACCOUNT*: 

GLC 1 and 2 are the General Ledger "Code Numbers" (GLC's) for "Accounts 
Receivable". Code #1 is for Debits, Code #2 for Credits. You don't have to 
concern yourself with the Debit/Credit part — ARS will keep it straight. Just 
enter your General Ledger "Accounts Receivable" account number. (These two 
codes are used internally by ARS.) 

The computer will ask you to enter General Ledger account numbers for 
"Assessed Finance Charges" (General Ledger Code #3) and "Bad Debt Write-Off" 
(General Ledger Code #4). 



Set Up (continued) 



The next 2^ GLC numbers are optional. You may assign each of these "codes" a 
General Ledger account number, and a five letter abbreviated account description. 

Your firm should already have General Ledger accounts for Cash, Sales, Sales 
Discounts, Sales Taxes, Shipping Charges, and various other categories. All you 
do is enter the General Ledger account number, and an abbreviated account 

description. 

The computer will match the General Ledger account number (and account 
description) with the assigned General Ledger Code. When entering transactions, 
type in a General Ledger Code number. The TRS-80 will then display the General 
Ledger Code number, the account description, and a request for the amount. 
For example : 

GLC 5 SLTAX AMOUNT: 



By using General Ledger Codes, the activity for a General Ledger account is 
accumulated, and current totals can be printed. At the end of the month, all 
totals can easily be posted to the proper General Ledger accounts. 

Why didn't we use General Ledger account numbers as "codes" for processing 
transactions? The one- or two-digit code numbers are easier (and quicker) to type 
than account numbers with four digits. When you've finished entering General 
Ledger Codes, type HE to end this section. 

At this point, you can printout a record of your General Ledger Codes, General 
Ledger Account Numbers, and General Ledger Account Descriptions. You'll 
need them for reference when you enter transactions. 



Set Up (continued) 



How Many Customers And Transactions 

You can now select the "ARS Storage Capacity" option you wish to use. 
The screen will show : 




Remember, this option can only be changed after "End of Period Processing". If 
you do decide to change, you can increase the number of accounts — you cannot 
decrease. Type the number of the option you need. 

Password Protection 

The screen will show: 

ENTER YOUR PASSWORD > 

Use of a password will insure that only authorized personnel can gain access to 
the Accounts Receivable records. If your company does not require a secured 
ARS, type [£] [A] g] OSS EKfiKB as your "password". (It's easy to remember.) 



Set Up (continued) 



10 



Your password can be up to eight characters. It can be a combination of letters 
and numbers, but the first character must be a letter. Press [ENTER) after typing 
the last letter. 

Note: This is the only time the password will appear on the screen exactly as 
typed. From this point on, the password will appear as a series of number signs 
(########) whenever you enter your password. 

WARNING: 

REMEMBER YOUR PASSWORD. IF YOU FORGET THE PASSWORD, YOU 

MAY NEVER SEE YOUR ACCOUNTS RECEIVABLE RECORDS AGAIN. 

The TRS-80 will ask: 

ARE ALL ENTRIES CORRECT? (Y/N) 

If you press [N) for No, the program will display everything you've entered and 
let you change the Set Up data. If you press for Yes, the system will store all of 
the company's data, together with your password. 

You are now ready to use the ARS program. If you are ready to start entering 
your customer accounts, go to Page 12. 

If you plan to enter the customer accounts later, remove the Diskettes and place 
them in their protective sleeves. Shut off the computer. When you are ready to 
use ARS, you will start on Page 11. 
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Running ARS 

Follow these steps in exact order: 

1. Turn on the Disk Drives, Printer, Video Display and the Expansion 

Interface. 

2. Insert the ARS Backup Program Diskette in Drive #0 and close the door. 

3. Insert the formatted Data Diskette in Drive #1 and close the door. If you 
have a three-Drive system, insert another formatted Data Diskette in Drive 
#2 and close the door. 



4. Turn on the TRS-80 keyboard. 

5. The screen will show : 
DOS READY 

HOW MANY FILES?„ 
MEMORY SIZE?„ 

The screen will show: 
READY >_ 



This is what you type: 

|@|[Di] and press lENTERl 
Press lENTERl 



*Press lENTERl 
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Type: UBHEBSHE] and press (UTerI . 

The screen will show: 

ENTER CORRECT DATE (MM/DD/YY): 

Enter today's date (Example: 05/07/79). The date will appear on the screen with 
the question: 

IS THIS CORRECT? (Y/N) 

Type H or [I] . If you type fYl (Yes), the system will ask you to enter your 
password. Type in your password carefully. Press |ENTER| after you type in the 
last letter. A # symbol will appear on the screen for each character of the 
password. 



If you make a mistake in typing, the computer will display: 

***INVALID PASSWORD*** 
PROGRAM TERMINATED 



Type (HOED, and press |ENTER| . The system will display the date and the "Date 
Correct (Y/N)" question. Press the O key and the system will ask you again for 

the password. Type it in carefully. 

When the password is correct, the program will search for all the stored 
information and display the Main Menu : 




You select a function by pressing the appropriate key (the letter in parenthesis). 
We want to Add our accounts now, so press [A] for (A)dd Accounts. 



Running ARS (continued) 



The screen will show : 




(O)ld Account 

The "Old Account" option is used to transfer existing customer accounts into 
ARS. This option allows you to enter all the pertinent account information 
including: the account's previous balance, amount and date of last sale, .amount 
and date of last payment, and the present credit status of the account. 

(N)ew Account 

The "New Account" option is for entering new customers that do not have a 
credit history with your company. All of the pertinent information is stored with 
the exception of previous balance, sales, payments, and current credit status. 

Let's enter a New Account first, so press El • 
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Running ARS (continued) 



The first "page" of a customer record will appear on the screen: 
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In the example above, a typical account was used to show how your information 
should appear. Press I ENTER! after each line you type. If you make a mistake, 
press the HI key to redo the entire entry. Lines 1 through 5 are pretty much 

self-explanatory . 

For Line 6, you indicate the minimum payment the customer may remit. This is 
a percentage of the total amount owed by the customer. Type the number 
without the percent sign. For example: If you want the customer to pay 1(5% of 
his total bill each month, type (HE and press [EMTERl . ARS will show this as 
10%. 

Line 7 is a question : 

DO YOU WISH TO APPLY THE FINANCE CHARGE? (Y/N) 

Answer H or [N] . That's the last information the program needs about a "new" 
account. ARS will store the account on the data disk. 



Running AMS (continued) 



Now let's try an Old Account. Press U to return to the Add Accounts Menu, then 
press M ■ The first "page"* of the customer account will appear on the screen 
with the heading: 

ENTER OLD ACCOUNT 



*Note: There are two "pages" to an "old account". When you're through with 
the first "page" the TRS-80 will automatically display the second "page": 




When you type in numbers, enter all dollar values with a decimal point, followed 

by two digits. For example: CDGUGBCIIGBED • Enter the date in the 

E) El 010 IS 012 12 form. For example: [fflg]0S)B)02][S. If you don't 

enter information correctly, the program will not accept your entries. You must 

enter some dollar value, even if it is just ffl □ [gffl . If a date entry is not 

necessary, simply press lENTERI . 

When you've finished, the computer will automatically compute the Current 
Balance, then display the results. 
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Running ARS (continued) 



Next, you need to enter a "status" code number. Every code number on the 
"(8) STATUS OF ACCOUNT" table represents an Account Status "type". Enter 
the correct number for the current status of the account. The TRS-80 will then 
store the account. 

Note: If you have an "Inactive Account" (status code 7), the account will not 
appear on billing statements. 

When you've entered all of your accounts, type HJ to exit to the Main Menu. 

The computer will sort the accounts three ways: 

1. By Account Number 

2. Alphabetically, by Last Name 

3. By Zip Code 

Note: It will take about 15 minutes to sort 300 accounts and about 25 minutes 
to sort 500 accounts. 

ARS will check to see if any duplicate account numbers have been entered. If you 
have duplicates, record the account numbers and delete the duplicates before 
doing any transactions. 



Press |ENTER| to return to the Main Menu. 
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Running ARS (continued) 



(C)ustomer Accounts 

This function lets you find any Customer Account for inspection, editing, or 
printing. At the Main Menu, press [C] . 

The screen will show : 

ACCESS BY: (A)CCOUNT NUMBER OR BY (N)AME? 

If you want the account by Account Number, press (A) . If by the Customer's 
Name, press |Nfl . 

If you press (S] , type the account number and press lEMTERl . The requested 
account will appear on the screen. 

If you press M , type the customer's last name and press lENTERJ . If you press [@] , 
you will return to the Main Menu. 

In additions to the customer information (name, address, etc.), you'll see a table 
of options: 

(S)EARCH (P)REVIOUS (N)EXT (T)URNPAGE 

(U)PDATE (H)ARDCOPY (D)ELETE (@) EXIT TO MENU 

This is what each option does: 

(S)earch 

Search will instruct the TRS-80 to Search for an account you want. The 
computer will ask: 

ACCESS BY: (A)CCOUNT NUMBER OR BY (N)AME? 

Press either [A] or (N) , then type the Account Number, or the Name of the 
Customer. When you've entered the information, the desired account will appear 
on the screen. 
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Rimming ARS (continued) 



(P)revious 

previous steps through the accounts backward. When you press QP] , the 
computer will display the account "in front of" the account you've just seen. 



(N)ext 

When you press (H , the computer will display the Next Account in the record. If 
no additional accounts appear, you've reached the last account. 



(T)urn Page 

A customer's account consists of two "pages". In all of the options we've 
discussed, the program brings only the first page to the screen. To see the second 
page, you must use the Turn Page option. Press (T) after you've seen the first page. 
If you need to go back to the first page, press ffl again. 



(U)pdate 

Update is used to edit account information. The option table will be replaced by: 

SELECT LINE NUMBER TO BE CHANGED 

This applies to each "line" of the customer's account record, such as, street 
address, etc. Type the number (of the line) which needs editing, make the 
desired changes, and press jENTERj . The computer will display the corrected 
line. 

If you change a zip code, the ARS will sort the accounts again. The sorting occurs 
when you return to the Main Menu. 

Note: You can only make changes in registered dollar amounts by entering a new 
transaction in the system. 
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Running AK.S (continued) 



(H)ard Copy 

Hard Copy lets you print any account in the record. First, use the (S)earch 
option to bring the desired account to the screen. Make sure the line printer is on. 
Press M ■ The printer will print both pages of the account you've selected. 



(D)elete 

Delete allows you to completely eliminate an account from the system. First, 
use the (S)earch option to bring the desired account to the screen, then press 
(D) to Delete the account. 

The screen will show : 

OK TO DELETE? (Y/N) 

Caution: Once an account is deleted, it is gone for good. You can't get it back. 
After you delete an account, a "Bad Debt" entry is automatically registered in 
the Transaction File. This entry is a key to the amount owed by the customer 
(at the time of deletion) and is entered for the benefit of the auditor. 

Now that we have finished storing and editing the accounts, let's go to the Main 
Menu, and enter some typical transactions. Press the [@] key. 
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Running AMS (continued) 
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(Transactions 

Customer transactions are entered with this function. Press Q] . 
The screen will show : 

TRANSACTIONS 

The display will remain on the screen for a few seconds while the computer finds 
the program and loads it into memory. 

When the computer has the program ready, the screen will show: 

(N)ORMAL OR (C)ORRECTION ENTRY? 
Unless you wish to correct previous entries, type El ■ 
The screen will show: 

(S)ALES, (P)AYMENT OR (B)AD DEBT? 

If you press 02 , the computer will ask for the customer's Account Number. Type 
the account number and press |ENTER| . The computer will check for a valid 
account number. 

The TRS-80 will then ask you to enter the date.* Use the standard MM/DD/YY 
form and press IENTER1 . 



*Note: If you want to use today's date, simply press |ENTER| . (Today's date is 
the date you typed at the beginning of the ARS program.) 

After the date entry, the computer will ask for: 

CUSTOMER INVOICE NUMBER 

Type the invoice number and press IENTERI . 

The screen will show: 

GLC:_ 



Running ARS (continued) 



The program is asking for one of the General Ledger Codes you specified during 
the setup procedure. Type the GLC number and press jENTERl . The computer 
will display the five character General Ledger Description, then ask for the 
amount. Type in the amount (including a decimal point and 2 digits). Press 
IENTERI . This is how your transaction entry will appear: 

GLC: 5 SALES AMOUNT: 50.00 

The ARS will ask for a total of three General Ledger Code entries. You can 
use less than 3, if you wish. (Skip over any unwanted GLC requests by pressing 
IENTERI .) 

At this point, the TRS-80 will compute the amount (or amounts) you entered. 
The computer will display the total amount, record the transaction and display 
the transaction as the last entry recorded. 

The program is now ready for another transaction. 

(P)ayment 

The Payment process is similar to (S)ale, except that you'll be asked for 
only one GLC number. This should be the General Ledger Code assigned for Cash 
(or any other account you designate to record incoming payments). A completed 
line for Payment will appear on the screen. For example: 

GLC: 8 CASH AMOUNT OF PAYMENT: 50.00 



(B)ad Debt 

The Bad Debt Transaction process requires only the account number, date 

and reference number be entered. Use the invoice number line to enter a reference 

number as an audit trail. The completed line for a bad debt will look similar to 

this: 

GLC: 4 B/D AMOUNT OF BAD DEBT: 300.00 

Be very careful when entering the account number. Once you complete the Bad 
Debt process, the account's balance will be removed from the total of receivables 
and the account will be placed on "Credit Suspended" status. 



21 



Running ARS (continued) 
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How To Make Correction Entries 

The screen will show: 

(N)ORMALOR (C)ORRECTION ENTRY? 

Select Correction Entry. Go through the same procedures as Normal Entry. 
The correction entry will replace the previous entry. Corrections may be made 
at any time before "End of Period Processing". 

Make sure that the customer account and invoice number (of the original, and 
correcting transactions) are exactly the same during your correction procedure. 
If you fail to correct a mistake, the errors in the file are compounded and you 
may damage still another account. 

Crediting A Customer's Account For Returns 

There are times when it is necessary to accept merchandise as a return for credit, 
or to offer an allowance as a special discount for damaged or defective merchandise. 
To credit a customer's account, prepare a Normal Sales Entry, and enter the 
amount as a negative number. (You must have a GLC code for "Returns".) The 
customer's statement will show a negative charge and your Posting Report will 
show a negative sale. 



Running AMS (continued) 



(P)ost Transactions 

It is at this point that all the transactions (from the Transaction File) are debited 
or credited to the appropriate customer accounts. At the same time, amounts for 
each of the General Ledger accounts are totaled and shown as debits/credits to 
the General Ledger's "Accounts Receivable" account. 

Postings should be made at frequent intervals: daily, biweekly, or weekly. End of 
Period Processing cannot take place if there are unposted transactions in 
the system. 

One of two possible displays will appear after you press [P] . 

1. If the system has no outstanding transactions to post, the screen will show: 
TRANSACTION FILE IS EMPTY 

The program will automatically return to the Main Menu. 

2. If transactions have been entered (using the Transactions Option), the screen 
will show: 



;Wggpp?Ml^ 





I 
I 

I 



sassgsBssBgg5fS«lB 



Reminder: This function requires printing. Be sure the line printer is on. 
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(L)ist All Transactions 

Press GD to print the entire Transaction File. The printout will contain full 
information on the status and type of each transaction — posted or unposted, 
sales or payment, normal or correction entry. Additional features are: 

1. Prints transactions, using the respective GL code numbers. 

2. Prints the amounts of each transaction, including totals. 

3. Prints invoice numbers and account numbers for each transaction. 

(P)ost AH Transactions 

Press E to Post all transactions and print a serialized report (which documents the 
posting). The first part of this report is similar to the Transaction File printout, 
with one difference. The first part of the Posting Report contains the customer 
names. 

The second part of the report lists the totals to be applied to the various General 
Ledger Accounts, such as: Sales, Sales Tax, Shipping Charges, etc. 

Posting is a very important function, since all transactions must be recorded to 
the proper customer's account. It also takes the subtotals of each General Ledger 
Account and adds them to the Accumulated Totals-to-Date. 



(G)eneral Ledger Recap 

This function provides a General Ledger Account Activity Report, which is 
similar in format to the second part of the Posting Report. The Recap Report 
contains the accumulated totals for the current month, grouped by General 
Ledger Codes. 



Running ARS (continued) 



(R)eports 

(R)eports will print reports which cover particular functions. When you press [R] , 
the screen will show: 




(E)ntire Account Records 

You select this option by pressing OH . The program then asks if you wish the 
account printed by: 

(A)CCOUNT #, (N)AME, or (Z)IP CODE SEQUENCE? 

Whether you type @) , M , or g] , the next display will be: 

(A)BBREVIATED OR (F)ULL RECORDS? 

Examples of these reports are shown in Appendix E (on Pages 42-44). At the 
bottom of each printout is the total amount of receivables for the records and the 
percentage of total receivables the amount represents. 

The printer will print the report when you press [A] or (B . 
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(S)tatus Aging Categories 

You use this option to print accounts by aging status. The report will tell you 
how long accounts have stayed unpaid. Press HO . The computer will ask if you 
wish the aging status listing printed by: 

(A)CCOUNT #, (N)AME, or (Z)IP CODE SEQUENCE 
When you have typed your answer, the computer will ask: 

(A)BBREVIATED OR (F)ULL RECORDS 
Following your answer, the screen will show: 




For example: If you want all accounts 90 days in arrears, credit suspended, and 
legal action pending, type DSC]®. For all accounts with nothing due, type 

aimsi . 

The screen will show: 

OK TO PRINT? (Y/N) 
Press (2 if you're ready to print a Status Aging Report. 



Running ARS (continued) 



(A)ging Status Analysis 
When you press @ , the screen will show: 
SCANNING ACCOUNT RECORDS 



After all account records have been scanned and summed by the computer, you'll 
see a display of results on the screen with a question: 

DO YOU WANT A PRINTOUT? (Y/N) 

Type E if you want a printed copy. The "analysis" printout summarizes the aging 
categories of all account records. Below is a sample of a typical analysis: 




(C)urrent Balance Records (Over Credit Limit) 

Press [C] to print all accounts with a current balance over the credit limit. Before 
printing, you must instruct the computer if you wish to print by (A)ccount #, 
(N)ame, or (Z)ip Code Sequence, and in (A)bbreviated, or (F)ull form. 
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Running ARS (continued) 
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(E)nd of Period Processing 

This function is used at the end of a billing period to: 

1. Print the monthly billing statements. 

2. Update all customer accounts. 

3. Clear the system to let you enter next month's transactions. 

4. Add all applicable finance charges. 

Billing Statement Message 
Press the E key. 

The screen will show : 

ENTER THIS MONTH'S MESSAGE (2 LINES): 
1ST LINE: 
2ND LINE: 

This allows you to enter an advertising message, which will appear at the bottom 
of each billing statement. You have two lines, of 41 characters each, for this 
message. You can skip one, or both of these lines (if your firm does not want a 
message), by pressing IENTERI . 

Period Ending Date 



If you've typed in a message, press |ENTER| . 
The screen will show : 

PERIOD ENDING DATE (PRESS <ENTER>FOR TODAY'S DATE): 

If the ending date of the billing cycle is the same date you entered at the start 
of the program, press lEMTERl . If the two dates are different, type in the ending 
date of the billing cycle and press lEIMTERl . 



Running ARS (continued) 



The period ending date will appear on the billing statements. A word of caution: 
Never enter any transactions that occur after the period ending date. Enter those 
transactions the following month. 

The screen will show: 

BILLING DATE (PRESS <ENTER> FOR TODAY'S DATE): 
Type the date that you want to appear on your statement and press |ENTER| . 
The screen will show : 




Please Note: 



1. The first four options must be selected in order (if you wish to do End 
of Period Processing). 

2. The last three options may be used at any time. (You'll note that an 
arrow points to the first option in the menu. This arrow will move 
down to the second option after the first has been used. It will advance 
until you get to the fifth option.) 
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Running AMS (continued) 
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Here's a good system to use for End of Period Processing: 

1. Align printer for statements. 

2. Print all statements. 

3. " Update all account records. 

4. Print a Transaction Record Report. 

5. Clear system for new month. 



(A)iigm Printer For Statements 

The first step in the billing process is to load and align the printing forms. Press 
El for this option. This is what you'll see on the screen. 

(H)ORIZONTAL ALIGNMENT TEST 
(V)ERTICAL ALIGNMENT TEST 
(A)LIGNMENTTEST FINISHED 

Press [Hi] for Horizontal Adjustment of billing forms. This will start the printer 
which will print this message : 

CENTER THE X'S IN THE PERFORATIONS 

If pre-printed billing forms are being used, make sure that the vertical perforations 
on the forms are aligned to lie in the middle of the printed X's. (See Appendix D 
in the back of the manual.) The knob for adjusting the length of the printed line 
is at the back of the line printer. 

Now, press [v] for Vertical Adjustment. This function will execute a top of form. 
Adjust the form vertically, as illustrated. Be sure that the bottom of the printer's 
ruler is lined up on the form as shown. When you're finished, press El for 
Alignment Test Finished. 



Running AMS (continued) 



(P)rint All Statements 

This option is used to calculate the amount owed by each customer (including 
finance charge). It will print statements for all active accounts with a non-zero 
balance. 

Press QP) . The program will ask if the statements should be printed by: 

(A)CCOUNT NUMBER, (N)AME, or (Z)IP CODE 

Enter your selection. Information in the printed statements will include: (a) 
previous balance, (b) all sales transactions, (c) payments, (d) finance charges on 
the previous month's unpaid balance minus any payments received, (e) total 
due, and (f) minimum payment. The account's aging status is printed under the 
customer's address. 

A single billing form can list 25 transactions. If a customer had more than 25 
transactions during a particular billing period, the account statement will 
continue on succeeding pages. At the bottom of a page, the words "Continued 
on Next Page" will indicate a continuation. On the next page, the "Previous 
Balance" space will show the balance amount (carried over from the preceeding 
page). This method is used (in succeeding pages) to accommodate up to 255 
transactions per customer for a single billing period. 

The monthly messages and totals will be printed on the final page of the 
statement. 

The screen will show : 

DO YOU APPROVE OF THE STATEMENTS AS PRINTED? (Y/N) 

Examine the printout for errors or problems with forms. If you find errors or 
damage to forms, press U •* You can now reprint all the statements by pressing 
E . If the printout meets your approval this time, press [3 . Do not exit (using @) 
unless you have approved the statements. 

*Note: If just one statement needs reprinting, press [Y] . You can make a Single 
Statement Printout afterwards. 
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Running ARS (continued) 



The Rest Of The Billing Options 

(U)pdate 

Before you Update, you must have all billing statements in order. Correct any 
statements that are wrong or misprinted. You can leave "End of Period 
Processing" at anytime, make corrections, and then return to the point from 
which you left. The arrow will point to the next function that must be used to 
complete the End of the Period Processing. Now you can press to Update all 
account records automatically. 

When Updating is finished, press (T| for a printed copy of the End Of Period 
Transaction File — you'll need this for an audit trail. Afterwards, press [C] to Clear 
the system for a new billing period. 

(S)ingle Statement Printout 

For a Single Statement printout, type \§} . The program will ask for the number of 
the Account. When you've typed the number, the statement will be printed. 



When you're finished with the Billing Section, press 
Menu. 



I to return to the Main 
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Running ARS (continued) 



(S)ystem Status 

You can use this function at any time. It lets you inspect the current system 
status at a glance. When you press [S] , a display (similar to the one below) 
will appear: 




(@) Exit Program 

Type 3D to Exit from the program. Always use this command when you're finished 
using ARS. This function automatically closes any files that might be open and 
makes sure that all changes have been properly recorded. 



The @ Key (In General) 

The @ key may be used either to restart a function or to Exit to the Main Menu. If 
you're entering data and you make a mistake, press [@] to restart the function. 

ARS uses the @ key as an eraser for a variety of mistakes. Whenever it is easier to 
start over, rather than correct a number of errors, use the @ key. Pressing the @ key 
several times will take you back to the start of the program quickly. 



The - Key 

If you make a mistake while typing a line, use the *- key to backspace to the error. 
The — key is directly above the lENTERl key. Hold down the SHIFT key and press 
the*- key to erase a long line. 
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Appendix A — How To Format Your Data Diskettes 



This process prepares blank diskettes for use on the disk system. All data diskettes 
must be formatted before being used. Here's how you do it: 

1 — Insert a blank diskette in Drive #1 



2 — Do the following exactly as shown : 

Screen Shows: 

DOS READY 
WHICH DRIVE etc. 
DISKETTE NAME? 
CREATION DATE? 
MASTER PASSWORD 
LOCK OUT ANY TRACKS? 
HIT "ENTER" TO CONTINUE 



You Type: 

ffl 

e is iii ei am 

aim Bis a mnim press ienteri 

(BEHUglSISlllEl press [ENTER I 

MM press I ENTER] 

press lENTERl 



press IENTERI 
press lENTERl 
press lENTERl 
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Appendix B — How To Backup Your Diskettes 
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Note: In order to copy diskettes, you must have a diskette that contains the 
BACKUP command. You can use the TRSDOS 2.2 Diskette (supplied with Drive 
9). Once you load the BACKUP function into the computer, the disk may be 
replaced with the disk you want to copy. 

Use this procedure EXACTLY: 

1. Turn on everything except the TRS-80 keyboard. If this is the first time 
you've ever used the Radio Shack Disk System, refer to the Disk Operating 
System Manual for detailed instructions. 

2. Insert a new, blank diskette in Drive 1 (farthest from the Interface) with the 
diskette notch up, label to the right. 

3. Close the Drive 1 door. 

4. Insert the TRSDOS 2.2 diskette in Drive with the notch up, label facing 
right, and close the door. (Drive is the first Drive connected to the 
Interface.) 

5. Turn on the TRS-80 keyboard. (The switch on the right rear apron.) 
The screen will show : You will type: 

DOS READY l@|ii(E and press [enJErJ 

Wait until the red light on the Disk Drive goes off. Remove the TRSDOS 2.2 
diskette from Drive 0, and place it in its protective sleeve. Insert the diskette 
you wish to copy in Drive and close the door. 

The screen will show : You will type: 

SOURCE DRIVE? [gland press lEIMTER I 



DESTINATION DRIVE?_ [T] and press lENTERl 

BACKUP DATE (MM/DD/YY) Today's Date and press lENTERl 

The computer will format the disk and transfer the data to the blank diskette. 
When it's finished, the screen will show: 

HIT 'ENTER' TO CONTINUE 



Don't press the |EIMTER| key just yet. 

Remove the copy diskette from Drive 1 and place it in its protective sleeve. 
Remove the diskette from Drive 0. You can now replace the TRSDOS 2.2 
diskette in Drive 0, close the door, and press |EIMTER| to continue. 



Appendix C — Rotating Your Copies 



When you're using your system, get in the habit of making copies of both diskettes 
at the end of the day. The next day, use the copies that you just made. It's a very 
inexpensive form of insurance. You might consider even carrying the backup copies 
home at night in case of fire, theft, or vandalism. You must also save the diskettes 
that contain the last completed month. 

Here's an example, using two extra diskettes: 

The first day's diskettes we will call A and B. The next day's diskettes will be 

called C and D. 



Day One 

Prog. Copy Onto 


Prog. 


Day Two 

Copy Onto 


® 




□ 
© 




a 




® 




&* 






Data 


C 


opy Oi 


lto 


Data 


Copy Onto 


® 




® 




® 




® 











On the second day, you will take A and B, and use them as blank diskettes to 
copy C and D. If something happens to a diskette, you still have the last backup 
copy to rely on. Four extra diskettes will give you three days of record 
protection. 

Be sure to keep the last completed month's set of diskettes till you complete the 
current month. This is very important in case of a major problem. 

Note: The most effective method for erasing diskettes is by using a Radio Shack 
Bulk Tape Eraser, Stock No. 44-21?). 
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Appendix D - Statement Alignment Mask 



STATEMENT 



♦ 



r 


ACCOUNT | DATE 


1 







PLEASE RETURN ABOVE PORTION WITH YOUR REMITTANCE 



CHARGES 



PREVIOUS BALANCE 



>->:- 



CENTER THE X'S ON THE PERFORATIONS 



MONTH ENDING 



REMITTANCE 



BALANCE 



.1", 



*" 



1ft, 



10 

H 



1 1 1 1 ii 1 1 1 1 



20 
i 1 1 1 1 I i 



30 
H 



i ti i.i 1 1 1 i 



40 

H I H M ) II i 



50 

Q 



IIMMIIIN 



60 



I IT I 



£= 
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Appendix E - Sample Reports 



Complete Transaction File 

87/17/79: COMPLETE TRRNSRCTIOM FILE 



TVPE 


flCCTi I 
RMOUNT <l 


3LC 
5 


C 


MTE 
fiMOUNT <GLC> 


INVt 

AMOUNT (OLD 


REMH^S 

TOTflL <QLC> 


SfiLE 
* 


1000 

25. 25+< 


> 


07/17/79 
12. 25+< 7 ) 


1 

187+< 9 ) 


NORMflL-UMPOSTEf) 
29. 37+< 1 ) 


SALE 
* 


1001 

269. 24+< 


6 


> 


87/12/79 

0. 00+< 8 ) 


2 

8. 08+< 8 ) 


NORMflL-UNPQSTED 
269. 24+ < i ) 


SfiLE 
* 


1002 

124. 78-K 


5 


> 


07/12/79 
12.98+C 8 ) 


2 
25. 23+< 18 ) 


NQRMftL-UMPOSTEf) 
162. 99+< i ) 


SfiLE 


1003 

118. 45+ < 


5 


> 


87/17/79 

0. 88+< ) 


4 

a08+< e ) 


NORMfL-UNPOSTED 
118. 45+< 1 ) 


PMNT 
* 


1004 
100. 00-< 


7 


> 


07/28/79 
0. 00+< 8 ) 


5 

00+C 8 > 


NORMftL-UNPOSTED 

108.88-< 2 ) 


SfiLE 
* 


1005 

254. 21+ < 


5 


> 


87/17/79 
22. 22+< 7 ) 


6 

29. 25+ < 18 ) 


NORMRL-UNPOSTED 
216. 79+< 1 ) 


SfiLE 
* 


1006 

1425. 21+ < 


6 


> 


87/21/79 
114. 02+< 8 ) 


7 

0. 08+< 8 ) 


NORMBL-UNPOSTED 
1529. 22+< 1 ) 


PMNT 
* 


1007 

25. 00- < 


7 


> 


87/17/79 
0. 80+< 8 ) 


8 

8. 88+< 8 ) 


NORMfiL-UNPOSTED 
25. 88-< 2 ) 


SfiLE 
* 


1008 

582. 45+ ( 


5 


> 


87/17/79 
25. 23+< 11 ) 


9 

0. 88+< 8 ) 


NORMflL-UNPOSTED 
527. 68+< 1 ) 


SfiLE 
* 


1809 

123. 45+ ( 


6 


> 


87/25/79 
9. 87+< 8 > 


9 

0. 88+< 8 > 


NORMflL-UNPOSTED 
122. 22+ < 1 ) 


SfiLE 
* 


1003 

245. 69+ < 


5 


> 


07/25/79 
17. 69+< 8 ) 


18 

28. 88+< 11 ) 


NORMftL-UNPOSTED 
292. 28+< 1 ) 


EH> OF LISTING 
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Sample Reports (continued) 



Posting Report 



07/17/79 - POSTING REPORT # 1 
TVPE flCCTi NfiME DATE 

AMOUNT <GLC> AMOUNT (GLC) 



INV# 

AMOUNT <GLC) 
1 



REMARKS 

TOTAL <GLC> 



SALE 
* 



I860 ADAMS 
25. 25+< 5 > 



07/17/79 
12. 25+ < 7 > 



1 87+< 9 ) 



NORMAL-POSTED 
29. 27+ < 1 ) 



SALE 1081 WASHINGTON 07/12/79 
* 269. 24+( 6 ) 0. 00+< ) 



0. 80+< ) 



NORMAL-POSTED 
269. 24+< 1 ) 



SALE 1882 JEFFERSON 07/12/79 
* 124. 78+< 5 ) 12. 98+< 8 ) 



25. 22+C 10 ) 



NORMAL-POSTED 
162. 99+< 1 ) 



SALE 
* 


1082 TAFT 
118. 45+< 5 ) 


87/17/79 
0. 00+< > 


4 


0. 80+( ) 


NORMAL-POSTED 
118. 45+ < 1 > 




PMNT 
* 


1084 LINCOLN 
188. 00- < 7 ) 


87/20/79 
0. 88+< 8 ) 


5 


88+< 8 ) 


NORMAL-POSTED 

100. 00-< 2 ) 




SALE 
* 


1005 TRUMAN 
254. 21+ < 5 ) 


87/17/79 
22.22+< 7 ) 


6 


29. 25+< 10 ) 


NORMAL-POSTED 
216. 79+< 1 > 




SALE 
* 


1006 FAIRLEV 
1425. 21+ < 6 ) 


87/21/79 
114. 02+< 8 ) 


7 


8. 00+C ) 


NORMAL-POSTED 
1529. 22+ < 1 ) 




PMNT 


1007 HRNNCOCK 
25. 0O-( 7 > 


07/17/79 
0. 00+< ) 


8 


8 00+< ) 


NORMAL-POSTED 
25. 88-< 2 ) 




SflLE 
* 


1088 MADISON 
502. 45+< 5 ) 


07/17/79 
25. 22+ ( 11 ) 


9 


8. 00+< ) 


NORMAL-POSTED 
527. 68+ < 1 ) 




SALE 


1089 FORD 
122. 45+< 6 ) 


07/25/79 
9. 87+< 8 ) 


9 


0. 00+< ) 


NORMAL-POSTED 
122.22+< 1 ) 





SALE 
* 



1002 TAFT 
245. 69+ ( 5 ) 



07/25/79 
17. 69H 8 > 



18 



20.08+C 11 ) 



NORMAL-POSTED 
I. 28+< 1 > 



40 



Sample Reports (continued) 



GEHERRL LEDGER INPUTS 










DEBITC+) 


CREDITC 


-) 


GLC: 2 


1000 / ft/R 


808+ 


1500 / F/C 


8.00+ 


GLC: 4 


1000 / fl/R 


0.00+ 


2080 / B/D 


0.08+ 


GLC: 5 


1000 / (VR 


1270. 82+ 


2500 / CftSHl 


1278. 82- 


GLC: 6 


1000 / fi/R 


1918.00+ 


2501 / CASH2 


1918. 00- 


GLC: 7 


2502 / CftSH2 


89.52+ 


1000 / ft/R 


89.52- 


GLC: 8 


1000 / fi/R 


154. 56+ 


2000 / SLTftX 


154.56- 


GLC: 9 


1000 / fl/R 


1.87+ 


2001 / FDTflX 


1.87- 


GLC: 18 


1000 / fi/R 


64.58+ 


2508 / FRGHT 


64.58- 


GLC: 11 


1000 / (VR 


55. 22+ 


4000 / MISC. 


55. 22- 


END OF REPORT 









General Ledger Recap 



87/17/79 - GENERftL LEDGER RECftP (TOTALS THIS MONTH TO DfiTE) - REPORT * 1 





DEBIT(+) 


CREDITS 


-) 




GLC: 2 


1000 / fi/R 


0.00+ 


1500 / F/C 


0. 08+ 




GLC: 4 


1080 / fl/R 


8 00+ 


2000 / B/D 


0.00+ 




GLC: 5 


1000 / ft/R 


1270. 82+ 


2500 / CflSHl 


1278 82- 




GLC: 6 


1000 / fi/R 


1918.08+ 


2581 / CRSH2 


1918. 08- 




GLC: 7 


2502 / CflSH2 


89.52+ 


1000 / fi/R 


89.52- 




GLC: 8 


1000 / fl/R 


154.56+ 


2880 / SLTfiX 


154. 56- 




GLC: 9 


1000 / fl/R 


1.87+ 


2001 / FDTftX 


187- 




GLC: 18 


1000 / fl/R 


64.58+ 


2508 / FRGHT 


64.58- 




GLC: 11 


1000 / ft/R 


55. 22+ 


4000 / MISC. 


55 22- 




END OF REPORT 
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Sample Reports (continued) 



Complete Account Listing — Run #1 

§7/17/79 - COMPLETE ACCOUNT LISTING - RUHi 1 



<8CCT# SEQUENCE) 














fiCCTf LAST NAME 


CRT LHT 


PRV BAL 


TTL SLS 


PMT REC 


CUR BAL STATUS 


1006 RDftMS 


K€dk£k 


0.00+ 


39. 37+ 


0.08+ 


39. 37+ 


8 


1001 WASHINGTON 


3£w2t3 


0.00+ 


369. 24+ 


8.00+ 


369. 24+ 





1002 JEFFERSON 




0.00+ 


162.99+ 


0.00+ 


162.99+ 





1083 TftFT 


1000 


0.08+ 


411. 83+ 


0.88+ 


411. 83+ 





1004 LINCOLN 


1000 


0.00+ 


0.88+ 


188.80- 


100. 88- 





1005 TRUMAN 


1500 


0.80+ 


316. 79+ 


0.00+ 


316. 79+ 





1886 FRIRLEV 


1000 


8.80+ 


1539. 33+ 


0.00+ 


1539. 33+ 


8 


1087 HANNCOCK 


508 


0.00+ 


0.08+ 


25.08- 


25. 80- 





1808 MADISON 


1080 


0.08+ 


527.68+ 


0.00+ 


527. 68+ 


8 


1009 FORD 


1580 


8.88+ 


133. 32+ 


0.00+ 


133. 32+ 





RECEIVABLES FOR THESE RECORDS 


: 3375. 55+ 








THIS IS 100. 08 V. OF 


3275. 55+ (TOTAL RECEIVABLES). 








END OF REPORT 
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Sample Reports (continued) 



Complete Account Listing — Run #2. 

87/17/79 - COHPLETE flCCOUNT LISTING - RUN* 2 
(NRME SEQUENCE) 



ACCT# NAME OF flCCOUNT 


ADDRESS 


CI TV, STATE ZIP 


PHONE CRT LMT 
PRV BflL TTL SLE 


JiRQ FC? 
PMT RCV 


DT LAST SALE DT LAST PVHT 
CUR BAL STATUS 


1888 JOHN ADAMS 


3698 OAK STREET NEW YORK, N V. 18816 



212-257-9852 5888 18 V 87/17/79 88/88/88 

8. 88+ 39. 37+ 8. 88+ 39. 37+ 8 - NOTHING DUE / CREDIT 



1886 B1LLIE FAIRLEV 14 RIVERVIEW RD TARRYTOWN, N Y. 18591 

914-769-7246 1686 18 N 87/21/79 68/68/88 

8. 88+ 1539. 33+ 8. 88+ 1539. 33+ 8 - NOTHING DUE / CREDIT 



1889 GERALD FORD 2135 ELH STREET OAKLAND, CA 98845 

283-456-7898 1588 18 V 87/25/79 88/88/88 

6. 88+ 133. 32+ 8. 68+ 133. 32+ 8 - NOTHING DUE / CREDIT 



1887 JOHN HANNCOCK 9638 MADISON AVE NEW YORK, N. V. 18821 

212-321-1596 568 16 V 88/88/68 87/17/79 

8. 88+ 8. 68+ 25. 86- 25. 86- 6 - NOTHING DUE / CREDIT 



1992 THOMAS JEFFERSON 8712 EAST 24TH ST BROOKLYN, N. V. 11211 



212-998-5442 
8.66+ 


5668 
162. 99+ 


18 V 87/12/79 88/68/88 
6. 68+ 162. 99+ 8 - NOTHING DUE / CREDIT 


1864 ABRAHAM 


LINCOLN 


235 PICK AVE JAMAICA, N. V. 11476 


212-425-7963 
8. 88+ 


1888 
8.88+ 


10 V 00/86/60 07/20/79 
100. 08- 100. 00- - NOTHING DUE / CREDIT 


1868 JAMES 


MADISON 


2562 HIGH BLUFF MONTICELLO, NY 11023 



914-325-7916 1800 10 V 07/17/79 08/00/88 

8. 88+ 527. 68+ 8. 00+ 527. 68+ 8 - NOTHING DUE / CREDIT 
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Sample Reports (continued) 



Complete Account Listing — Run #2 (continued) 

ACCTi NAHE OF ACCOUNT ADDRESS CITY, STATE 2IP 

PHONE CRT LMT '/.M FC? DT LfiST SALE DT LAST PVMT 

PRV BAL TTL SLE PUT RCV CUR BAL STATUS 



1882 WILLIAM TAFT 



243-59 43RD AVE. FOREST HILLS, NV 



11282 



212-654-324? 1086 18 V 87/25/79 08/88/80 

8. 88+ 411. 83+ 8. 80+ 411. 83+ - NOTHING DUE / CREDIT 



1085 harry 



TRUMAN 



4683 WEST 74TH ST NEW YORK, N. V. 



10836 



212-639-4587 1580 18 V 87/17/79 80/00/08 

0. 80+ 316. 79+ 8. 00+ 316. 79+ - NOTHING DUE / CREDIT 



1081 GEORGE WASHINGTON 2354 CHERRV LANE FORT WORTH, TX 



76182 



817-844-3697 5000 10 V 87/12/79 88/88/88 

8. 88+ 369. 24+ 8. 00+ 369. 24+ 8 - NOTHING DUE / CREDIT 



RECEIVABLES FOR THESE RECORDS: 3375.55+ 

THIS IS 100. 80 'A OF 3375. 55+ QOTAL RECEIVABLES). 

EW> OF REPORT 
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Sample Eeports (continued) 



Listing By Aging Status 



07/17/79 - LISTING BV AGING STATUS - RUN# 1 

1 - CURRENT BALANCE DUE 

TO 
4 - OVER 98 Dfl¥S»IN ARREARS 

<ACCT# SEQUENCE) 



ACCT# LAST NAME 


CRT LMT 


PRV BfiL 


TTL SLS 


PUT REC 


CUR- ML STATUS 


1602 TflFT I860 8.88+ 41182+ 

1805 TRUMAN 1588 8.08+ 316.79+ 

1806 FAIRLEV 1088 8.00+ 1529.23+ 
1887 HANNCOCK 580 8.88+ 8.00* 

RECEIVABLES FOR THESE RECORDS: 2242.95+ 

THIS IS 66. 45 2 OF 3375. 55+ (TOTAL RECEIVflBLES). 


i. 08+ 

&88+ 

6.88+ 

25.80- 


411 83+ i 
316. 79+ 2 

1529. 22+ 4 
25.88- 2 


EM) OF REPORT 
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Sample Reports (continued) 
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Accounts Receivable Analysis By Aging Status 



ACCOUNTS RECEIVABLE ANALYSIS BY AGING STATUS 



AGING CATEGORY 


ACCTS 
6 


AMOUNT 
1132. 60+ 


7. OF A/R 


8 - NOTHING DUE / CREDIT 


33. 55 Y. 


i - CURRENT BfiLRNCE DUE 


1 


411 83+ 


12.20 Y. 


2 - 36-66 DAYS OVERDUE 


1 


25.08- 


-0 74 Y. 


3 - 60-96 DflVS OVERDUE 


1 


316. 79+ 


9.38 Y. 


4 - OVER 98 DAYS IN ARREARS 


1 


1539. 33+ 


45.60 Y. 


5 - CREDIT SUSPENDED 


8 


0.00+ 


90 '/. 


6 - LEGAL ACTION PENDING 


8 


0.80+ 


B.my. 


? - INACTIVE ACCOUNT 


8 


8.00+ 


00 y. 



TOTALS 10 3375. 55+ 100. 00 Y, 
87/17/79 - REPORT # 2 



Sample Reports (continued) 



Records With balance Over The Credit Limit 

87/17/79 - RECORDS WITH BALANCE OVER THE CREDIT LIMIT - RUNi i 
(flCCT# SEQUENCE) 



fiCCT# NAME OF ACCOUNT ADDRESS CITV, STATE ZIP 

PHONE CRT LMT JiRQ FC? DT LAST SALE DT LAST PVMT 

PRV BAL TTL SLE PMT RCV CUR BAL STATUS 



1866 BILLIE FAIRLEV 14 RIVERVIEW RD TARRVTOWN, H. V. 18591 

914-769-7246 1888 18 N 87/21/79 88/88/88 

8. 88+ 1539. 23+ 8. 88+ 1539. 33+ 4 - OVER 98 DAVS IN ARREARS 



RECEIVABLES FOR THESE RECORDS: 1539. 33+ 

THIS IS 45 68 Y. OF 3375. 55+ (TOTAL RECEIVABLES). 



END OF REPORT 
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TRINITY 

FORMS 

COMPANY 



TRS-80 ORDER FORM 

FOR 

CUSTOM PRINTED STATEMENTS 

* DESIGNED FOR USE ON TRS-80 TRACTOR FEED PRINTER 



A STAFFORD LOWDON COMPANY 



#1- 

#2- 
#3- 

#4- 
#5- 



#6- 
#7- 

#8- 
#9- 
#10- 



! ° ' ■' \ ° : 
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STANDARD SPECIFICATIONS 

SIZE: 7 x 8% (6 x 8% DETACHED) 

NUMBER OF PARTS: ONE 

INK COLORS: BLUE & BLACK OVERPRINT 

PAPER: 24LB. WHITE BOND 

TO ORDER YOUR FORMS SIMPLY FOLLOW 
THE STEP BY STEP PROCEDURES AS SHOWN 
BELOW: REMEMBER THAT YOUR ACCURACY 
IS VERY IMPORTANT AS YOU WILL BE 
RESPONSIBLE FOR YOUR ERRORS! 



IF YOU DESIRE YOU MAY ORDER OUR STOCK FORM WITHOUT YOUR NAME, ADDRESS, OR TERMS PRINTED. 
CHECK QUANTITY DESIRED, THERE ARE 2,200 FORMS PER CARTON. 

□ 1 CARTONS 90-00 □ 2 CARTONS $J5O00_ Q 3 CARTONS S 195-00 FUcARTONSS 220 - 00 

TYPE OR PRINT CLEARLY 



IF YOU PREFER PERSONALIZED FORMS PRINT 
EXACTLY IN THE SPACE AT RIGHT, THE IMPRINT 
YOU WANT ON YOUR FORM. SPACE SHOWN IS THE 
EXACT SIZE AVAILABLE FOR YOUR COMPANY 
NAME, ADDRESS, STATE, ZIP AND PHONE NUMBER 
AS DESIRED. 



IF YOU DESIRE, WE CAN PRE-PRINT YOUR TERMS 
AT THE BOTTOM OF THE FORM. SPACE SHOWN AT 
THE RIGHT IS THE EXACT SIZE AVAILABLE. 
PLEASE TYPE OR PRINT CLEARLY. 



CHECK QUANTITY DESIRED FOR PERSONALIZED FORMS. WE SUGGEST YOU ORDER AT LEAST A 1 YEAR SUPPLY. 

□ 1 CARTON D2CARTONS D3CARTONS D4CART0NS DOTHER QTY._ 

S 135.00 $ 210.00 $ 255.00 $ 280.00 Prjce will be quoted (over 8i800 only) 

IF YOU WANT PERSONALIZED #6% WINDOW ENVELOPES, PLEASE CHECK QTY. DESIRED. PRINTING WILL BE 
THE SAME AS SHOWN IN #2 ABOVE, UNLESS YOU GIVE OTHER INSTRUCTIONS. 

□ NO ENVELOPES l~l 500 S 24.16 n 1 000 S 37.51 fl ? R00 S 72.18 H 5.000 S 124.56 

□ CHECK HERE IF YOU HAVE SPECIAL INSTRUCTIONS ON REVERSE. 

ENCLOSE YOUR CHECK FOR FULL PAYMENT MADE PAYABLE TO TRINITY FORMS COMPANY. 
TEXAS RESIDENTS ADD 5% SALES TAX. 
MAKE SURE ALL INSTRUCTIONS ARE COMPLETE AND CHECK FOR SPELLING ERRORS. 

ALLOW 3 TO 5 WEEKS FOR COMPLETE DELIVERY, 2 WEEKS IF YOU ARE ONLY ORDERING STOCK FORMS. 

GIVE US YOUR SHIPPING ADDRESS: 



#11- S!GNED:_ 



.TITLE:, 



.PHONE #:. 



# 12- SEND THIS FORM AND YOUR PAYMENT TO: 

TRINITY FORMS COMPANY, NO. 1 FORMS DRIVE, CARROLLTON, TEXAS 75006 

-DBirEC CI IR ICiTT Tfl PMANftP WiTHIH IT NOTIflF- 



RADIO SHACK TRS--80 ARS SETUP PROGRAM PAGE 1 

10 REM ** ACCOUNTS RECEIVABLE SETUP PROGRAM ** 

20 REM COPYRIGHT (C> 1979, TANDY CORP. 

30 REM VERSION 1.0 - 07/16/79 

40 CLB:CLEAR1000:DEFINTA-Z:W*=" " : 0=0: 01=0:02=0: DIMG( 24 ) > G# (24 ) : DIMW? IN*» CF? WD? W* 

» WS, FL> WL : ONERRORGOTO600 
50 PRINT" TRS-80 ACCOUNTS RECEIVABLE SYSTEM 

SETUP PROGRAM 



< I ) N I T I A L SET U P 
(M) D I F I C A T I N 

ENTER SELECTION — > " ; 
60 FL=1 :6OSUB2S0:O*=IN*: IFCFO0THEN60ELSEIFO*<>" I " ANDO$<>" M" THENPRINTCHR* (8) ; : GO 

TO60ELSEIFO$=" I "THENZX=1 : GOTO80ELSEZX=0 
70 GOSUB500 

80 CLS: IFZX=0THENPRINT3976? "PRESS <ENTER> IF OK AS IS" ; : PRINT30? 5 
90 PRINT" YOUR COMPANY NAME > " ; = FL=25 : GOSUB2S0 : IFCFO0THENS0ELSEIFIN*<> " " T 

HENN*=IN$ 
100 PRINT" 

YOUR STREET ADDRESS > " ; : FL=25 : GOSUB280: IFCFO0THEN80ELSEIFIN*<> " " THENA 

*=IN* 
110 PRINT" 

CITY ; STATE & ZIP CODE -> " ; : FL=25 : GOSUB280 : I FCFO0THEN80ELSE IFI N*<> " " THENC 

SZ$=IN$ 
1?0 PRINT" 

YOUR PHONE NUMBER > " ; : FL=15 : GOSUB280 : I FCFO0THEN80ELSEIFI N*<> " " THENP 

N$=IN$ 
130 PRINT" 

ENTER MONTHLY FINANCE CHARGE RATE 

(PER CENT OF UNPAID BALANCE) > " ; : FL=-4 : GOSUB280: IFCFO0THEN80ELSEI 

FIN$O""THENFC!=VAL(IN$)/100:PRINT" ■/."ELSEPRINT 
140 PRINT" 

ENTER MINIMUM PAYMENT > " ; : FL=-1 : GOSUB280 : IFCFO0THEN80ELSE 

IFIN*<>" "THENMB#=VAL( IN$) 
150 PRINT" 

ARE YOU USING BILLING STATEMENT FORMS WITH YOUR 

COMPANY NAME PRE-PRINTED ON THE FORM ? (Y/N) "; 
160 FL= 1 : GOSUB280 : I F CF< > 0THEN80ELSE I F I N$= " " THEN 1 70ELSE I F I N$ < > " Y " AND I N* < > " N " THENP 

RINTCHR$(8) 5 :GOTO160ELSEIFIN$="Y"THENPP=0ELSEPP=1 
170 IFZX=0THENGOSUB560:GOSUB960:IFO*=" I " THENGOSUB810 : G0T01 90ELSEIFUT=0ANDPDO2TH 

ENG0SUB8 1 : G0T02 1 0ELSEGOTO2 1 0ELSE 1 80 
180 GOSUB650:GOSUB810 

190 CLS: PRINTa448? "ENTER YOUR PASSWORD — > "; 
200 FL=8:GOSUB280:IFCFO0THEN190ELSEIFIN*=""THENPRINTSTRING*(8,8) ; :GOTO2O0ELSEP* 
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= IN* 
210 CLS:PRINT3448» "ARE ALL ENTRIES CORRECT ? (Y/N) "; 
220 FL=i :GOSUB280: R$=IN*: IFCFO0THEN220ELSEIFR*<> " Y" ANDR*<> " N" THENPRI NTCHR* < 8) ; : 

GOTO220ELSEIFR$=" N" THENGOSUB560 : IFQ*=" I " THENZX=0 : GOTO80ELSE80ELSE230 
230 I FQ*= " H " THEN260 

240 CLS:PRINT3471» "STORING SETUP DATA" : GOSUB470 : GOSUB480 
250 CLS:PRINT3474.» "SETUP STORED 

TYPE: RUN" ;CHR*<34) 5 "ARS" ?CHR*C34) ; :CLEAR50:END 
260 CLS:PRINTa470> "STORING ALL CHANGES" : 6OSUB490 
270 CLS:PRINTa471» "ALL CHANGES STORED 

TYPE? RUN" ;CHR*<34) ; "ARS" ;CHR*<34) ; :CLEAR50:END 
280 W=FRE(W*) : IN*=" " : CF=0 : W*=INKEY* : WD=0: WS=WD : WL=WD : IFFL=WDTHENFL=1 
290 PRINTSTRING*<ABSCFL> , CHR$( 136) ) ; STRING* ( ABSCFL ) , CHR*<24) ) ; 
300 PR I NTCHR* ( 14) ; : FORW= 1 T025 : W*=INKEY* : IFW*<> " " THEN310ELSENEXT : PR I NTCHR* ( 15) ? :F 

0RW=1T025 :W*=INKEY*: IFW*<>" " THEN310ELSENEXT : GOTO300 
310 IFW*OCHR*(13)THEN330ELSEPRINTSTRING*(ABS<FL)-WL, " " ) ; 
320 PRINTCHR*( 15) ; : W=25 : NEXT: RETURN 
330 IFW*O"3"THEN350 
340 CF=1 :PRINTCHR*( 15) ; : RETURN 

350 PRINTCHR*( 14) ; : IFW*=CHR* ( 24 ) THENPRI NTBTRI N6* ( WL, CHR* < 24 ) ) " : GOTO280 
360 IFW*<>CHR*(8)THEN400ELSEIFWL=0THEN300ELSEPRINTCHR*<24) ; : IFFD-0THEN380ELSEIFP 

EEK ( 1 64 1 8 ) =44THEN390 
370 I FPEEK ( 1 64 1 8 ) =46THENWD=0 : GOTO380ELSE I FPEEK ( 1 64 1 8 ) =430RPEEK ( 1 64 1 8 ) =45THENWS=0 
380 IN*=LEFT*<IN*»LEN(IN*)--1) 
390 WL=WL-~1 SPOKE 16418 5 136:GOTO300 

400 IFABS( FL ) =WLTHEN300ELSEIFFL>0THENIFW*>=" " ANDW*<=" z " THEN450 
410 I FW*= " . " ANDWD=0THENWD= 1 : GOTO450 
420 IFW*=" , "THENPRINTW*; : WL=WL+1 :GOTO460 
430 I F ( W*= " - " ORW*= ■' + '•) ANDWS=0ANDWL=0THENWS= 1 : GOTO450 
440 I FW*< " " ORW* > " 9 " THEN300 
450 PRINTW*; s IN*=IN*+W*:WL==WL+1 
460 I FABS ( FL ) = 1 THEN320ELSE300 
470 PI*="CUSINDEX, "+P*+" s 1" s PD*=" CUSDATA. "+P$+" s 1" s PT*=" TRANSACT. " +P$ s PS*=" CUSSE 

TUP. "+P*+" : 1" :PG$="GLFILE. "+P*+" : 1" s IFPD=2THENPT*=PT*+" :2" : RETURNELSEPT*=PT 

$+" s l" s RETURN 
480 OPEN"0" , 1, PI*sTI=0sTN=l : F=0:U=0: UT=0: UN=1 :R0=1 :R1=1 :R2=1 :R3=1 :R4=1 :R5=1 sR6=l 

s R7= 1 : CV#=0 s EP=0 : PR I NT# 1 1 T I ; TN ; F ; U ; UT ; UN " EP ; R0 ; Rl ; R2 ; R3 ; R4 ; R5 " R6 ; R7 ; STR* < CV 

#) + "D0" sFORN=lTOTN-l : PRINT#1 , P(N? 0) ; P(N» 1 ) ; P(N> 2) : NEXT: CLOSE 1 
490 OPEN" R" 5 1 » PD*: CLOSE 1 :OPEN"R" » 1 »PT*: CLOSE! :OPEN"0" , 1 , PS* : PRINT#1 , N* : PRINTttl ■> A 

$:PRINT#1»CSZ*:PRINT#1 ! PN*."PRINT#1 ! FC! : PRINTttl , GT ; PD; PC" PT 5 PP: PRINTttl » GL$: P 

RINT#1 , MB#: CLOSE 1 : IFRF=0THENGOSUB770 : RETURNELSERETURN 
500 CLS:PRINTa462> "ENTER PASSWORD — > " ; : P*=" " :F0RX=1T08 
5 1 PE*= I NKEY* : I FPE*= " " THEN5 1 0ELSE I FPE*< " " ORPE*> " Z " THEN I FASC ( PE* ) = 1 3THENG0SUB47 

0SGOTO530EL3E510 
520 PRINT"#" ' :P*=P*+PE*:NEXT:GOSUB470 
530 OPEN" I" , 1, PS*:LINEINPUT#1»N*:LINEINPUT#1) A*:LINEINPUT#l5 CSZ*: LINEINPUTttl » PN* 

: INPUTttl , FC ! , GT? PD» PC* PTi PP:LINEINPUT#1 , GL* : INPUTttl , MB#: CLOSE1 :OPEN" I " ? 1 » PI 

* : I NPUT# 1 5 T I , TN i F , U , UT , UN : CLOSE 1 
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54B OPEN " R " i 3 ! PG* : RF=0 : FORG= 1 TOGT : GOSUB900 : GOSUB940 : G0SUB95B : G ( G ) =GA : G# < G ) =GC# : I 

FGC#O0THENRF=1 
550 NEXT: CL0SE3 
560 CLS: PRINTTABC21 ) " CURRENT COMPANY DATA" : PRINT" 

YOUR COMPANY NAME : " ; TAB ( 30 ) N$ ; " 

YOUR ADDRESS : " ; TAB < 30 ) A* ; " 

C I TY , STATE & ZIP CODE : " ; TAB < 30 ) CSZ* ; " 

PHONE NUMBER : " ; TAB ( 30 ) PN* 
570 PRINT" 

MONTHLY F I NANCE CHARGE RATE : " 1 TAB < 36 ) ; US I NG " ## . ## " ; FC i * 1 00 5 : PR I NT " 7, " 
580 PRINT" MINI MUM PAYMENT CUT-OFF POINT: "" USING "#######„##"; MB# ;: PRINT" 

COMPANY NAME IS" ; : IFPP=1THENPRINT" NOT"; 
590 PRINT" PRE-PRINTED ON THE BILLING STATEMENT FORMS. ": PRINT" 

MAX CAPACITY: »; PC; " CUSTOMER ACCOUNTS / "; PT? " TRANSACTIONS/MONTH" : GOSUB630: 

RETURN 
600 IFERR/2+l=70THENCLS:PRINT3465> "*** INVALID PASSWORD *** 

" ; TAB (20) "PROGRAM TERMINATED 

" :CLEAR50:END 
610 IFERR/2+l=54THENCLS:PRINT3465» "NO FILES ON DATA DISK" : PRI NT : PRINT : CLEAR50 : EN 

D 
620 ONERRORGOTO0 

630 IN*==INKEY$:PRINT3976» "PRESS <ENTER> TO CONTINUE "; 
640 EN*=INKEY$: IFEN*OCHR*( 13) THEN640ELSERETURN 
650 CLS SPRINT" ASSIGNMENT OF GENERAL LEDGER CODES (GLC) 

" :FORG=1TO24:G#(G)=0:NEXT:PRINT"GLC: 1&2 ACCOUNTS RECEIVABLE CA/R) 
GL ACCOUNT # : " ; : FL=-4 : GOSUB2S0 : 1 FCF< >0THEN650ELSEG ( 1 ) =VAL ( I N$ ) : G ( 2 ) =G ( 1 ) 
660 PRINT" 

GLC: 3 ASSESSED FINANCE CHARGES CF/C) GL ACCOUNT # : " ; : FL=-4 : G0SUB28 

: 1 FCFO0THEN650ELSEG < 3 ) =VAL ( IN* ) 
670 PRINT" 

GLC: 4 BAD DEBTS WRITE-OFF CB/D) GL ACCOUNT # : " ; : FL=-4 : G0SUB28 

0: IFCFO0THEN650ELSEG(4)=VALUN*) 
680 PRINT" 

ENTER UP TO 20 GLC'S TO BE USED FOR POSTING TO THE GENERAL 

LEDGER. AFTER THE LAST GLC, TYPE -1 TO END THIS SECTION. 

":GL$="A/R A/R F/C B/D " 
690 FORG=5T024:PRINTUSING"7. 7, ### 7. 7. ####"; "GLC :" ;G;"6L A'CC 

OUNT # : " ; 
700 FL=-4:GOSUB280: IFCFO0THEN650 

710 IFVAL(IN*)O-lTHENG(G)=VAL(IN*)ELSEPRINT:G=G-l:GOTO760 
720 PRINTTAB(39)"NAME ABBREVIATION: "; 

730 FL=5:GOSUB280: IFCF=0THENIN$=IN*+" " :GL*=GL*+LEFT$( IN*. 5 )ELSE650 
740 PRINT 
750 NEXT:G=G-1 
760 GT=G:GOSUBl 170: RETURN 
770 OPEN" R"i3>P6*:F0RG=l TOGT 
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780 GA=G ( G ) : GC#=G# < G ) 

790 GOSUB900 : GOSUB920 

800 NEXT: CL0SE3: RETURN 

B.10 CLS: PRINT" ARS STORAGE CAPACITY OPTIONS 



820 PRINT" 1 - 300 CUSTOMER ACCOUNTS / 1000 TRANSACTIONS/MONTH 
(2 DISK SYSTEMS) 

2 - 100 CUSTOMER ACCOUNTS / 2000 TRANSACTIONS/MONTH 

<2 DISK SYSTEMS) 

3 - 500 CUSTOMER ACCOUNTS / 2500 TRANSACTIONS/MONTH 

(3 DISK SYSTEMS) 



830 
840 
850 
860 
370 
880 

890 
900 
910 
920 
930 
940 
950 
960 
970 
980 

990 

1000 
1010 
1020 

1030 
1040 
1050 
1060 
1070 
1080 

1090 
1100 



PRINT" SELECT 1, 2 OR 3 > " ; 

FL=-1 :GOSUB280: IFCF<>0THENS40ELSEIFIN$<" 1 " ORIN*> " 3" THENPRINTCHR* (8 ) ; :GOTO840 

PR I NT : I FPO300AND I N$= " 2 " ANDQ*= " M " THEN8 1 0EL5EONVAL ( I N$ ) GOTO860 » 870 , 880 

PD=1 : PC=300: PT=1000: GOTO890 

PD=1 :PC=100:PT=2000:GOTO890 

PD=2:PC=500:PT=2500: IFQ*=" M" THENKILLPT*: PT*=LEFT* ( PT*» LEN( PT* ) -1 ) + "2" :OPEN"R 

" ,3, PT* : CL0SE3 
RETURN, 

GR= I NT ( ( G-- 1 ) /25 ) + 1 : GD=G-25* I NT ( ( G- 1 ) /25 ) - 1 
F I ELD3 » GD* 1 0ASG0* , 2ASG 1 * , 8ASG3$ : RETURN 
LSETG 1 *=MK I $ ( GA ) : LSETG3*=MKD* < GC# ) 
PUT3,GR: RETURN 
GET3»GR: RETURN 
GA=CVI (Gl*) :GC# 
IFRF=0THEN990 
CLS:PRINT3448» "GLC 
PRINT" REVISION NOT 

0: RETURN 
CLS: PRINT" PRESS <ENTER> IF OK AS IS. 

TYPE -1 AFTER LAST VALID CODE. ": PRINT 

GL*=LEFT*(GL*+STRING*( 120,32) , 120) 



=CVD(G3*) .'RETURN 



FILE CONTAINS 
ALLOWED PRIOR 



DATA. " 
TO END 



OF PERIOD PROCESSING. 



:PRINT:G0SUB63 



PR I NT "GLC : l&i 

FL=-4:GOSUB280: 

ELSEPRINT 

PRINT "GLC : 3 

FL=-4:6OSUB280: 

PRINT"GLC : 4 

FL=-4:GOSUB280: 

F0RG=5T024 

PRINTUSING" - /. 

RINTTAB(30)"GL 

FL=-4:6OSUB280: 



IFCF 



: IFCF< 

li > 

UFCF< 

"/. ## 
ACCT 
IFCF< 



:G(1) ;"A/R" ;TAB(30)' 
:: >0THEN960ELSE I F I N* -■ 

:G(3) ; "F/C" ;TAB(30)' 
: >0THEN960ELSE I F I N*< 
:G(4) ? "B/D" 5TAB(30) ' 
:: >0THEN960ELSE I F I N*< 



GL 



ACCT # : 
'THENGU )■ 



=VAL( IN$) :G(2)=G< 1 ) :PRINT 



GL ACCT # : " ; 

>" "THENG(3)=VAL< IN*) 

GL ACCT # : " ; 

> " " THENG ( 4 ) =VAL (IN*) 



PRINTELSEPRINT 



PRINTELSEPRINT 



#### '/. 



>0THEN960 



7." ;"GLC 



:G;G(G) ;MID*(GL* 5 (G--1 )*5+l>5> 



IFVAL( IN*)=-1THENPRINT:G=G-1 : GOTO 11 60 
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1 110 I F I N* < > " " THENG < G ) = VAL < I N$ ) 
1 1 20 P R I NTT AB < 5 ) " NAME : " ; 
1 130 FL=5!GOSUB280: I FCFO0THEN960 

1 140 IFIN*<>" "THENIN*=LEFT*C IN*+" " , 5) :MID*<GL$, CG--1 )*5+l , 5 ) = IN* : PRINTELSEPR 
INT 

I I c :. NEXT':G=G~1 

I I 60 6T==G .' GL*=LEFT* ( GL* , GT*5 ) : GOSUB 1170: RETURN 

1170 PRINT3960? "WOULD YOU LIKE A PRINTOUT OF THE GLC'S ? (Y/N) "; 

1 180 FL=1 :GOSUB280: IFCFO0THEN1 1S0ELSEIFIN$=" N" THENRETURNELSEIFIN*==" Y" THEN1 190EL 

SEPRINTCHRUC8) ; :GOT01 180 
1190 IFPEEK< 14312) M27THENPRINT3960? CHR*(30) 5 "P R I N T E R N T R E A D Y 

! ! " ; :FORZe=lTO1500:NEXT:GOTO1170ELSELPRINT"GLC DESCRIPTION ACCOUNT 
#" ;TAB(57) "NOTES" : LPRINTSTRI NG* (80? "-" ) 
1200 FORG=lTOGT:LPRINTUSING"### '/. % ####"; G ; MID* ( GL$> ( G-~ 1 ) *5+l 

,5) ;G(G) :LPRINTSTRING*(80j "-" ) :NEXT:LPRINTCHR$( 12) : RETURN 
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10 REM ** ACCOUNTS RECEIVABLE PROGRAM ** 

20 REM COPYRIGHT (C) 1979, TANDY CORP. 

30 REM VERSION 1.0 - 07/16/79 

40 CLEAR600:DEFINTA-Z:DIMP<500»2) :W*="" : N#=0: W#=0 : V*=" " : X=0 : Dl#=16777216 :D2#=655 

36:D3#=256 
50 DIM W» IN*»CF»WD»W*»WS»FL»WL 
60 ONERRORGOTOl 10:OPEN" IMi "TRANSFER" 
70 L I NE I NPUT# 1 » P I $ : L I NE I NPUT# 1 » PD* 

80 L I NE I NPUT# 1 , PS* : L I NE I NPUT# 1 , PT* : L I NE I NPUT# 1 ■> PG* 
90 CLOSE 1 :KILL"TRANSFER" 
100 GOTO220 

110 IFERR/2+l=54THENRESUME130 
120 ONERRORGOTO0 
1 30 I FLEFT* ( T I ME* , 2 ) = " 00 " ORM I D* ( T I ME* ■> 3 , 1 )< > " / " ORM I D* ( T I ME* .6,1)< > " / " THENCLS : GOT 

0160 
140 CLS:PRINTa458, "DATE IS SET TO " ; LEFT* ( TIME*, 8 ) ; " . IS THIS CORRECT ? (Y/N) " 

150 FL=1 :GOSUB390: I FI N*<> " Y" ANDI N*<> " N" THENPRI NTCHR* i 8 ) ; :GOTO150ELSEIFIN*=" Y" THE 

N210 
160 PRINT3588, "ENTER CORRECT DATE (MM/DD/YY) : " ; 
1 70 FL=S : GOSUB390 : DT*- I N* 

1 80 POKE 1 6454 , VAL ( LEFT* < DT* ,2)): POKE 1 6452 , VAL ( R I GHT* ( DT* , 2 ) ) 
190 P0KE16453»VAL(MID*(DT*)4»2) ) 
200 GOTO 130 

210 CLS:GOSUB3220:GOSUB380:PRINT3472» " INITIALIZING" 
220 ONER RO RG0T035 40 
230 POKE 1 6424 » 67 : POKE 1 6425 ? 1 
240 RFAD10* J L1$.L2*»L3*,T0*.T1*5T2*.T3*,T4*.T5*,T6*,T7*»T8*»T9*.TA*.TB*»TX*»TD*, 

TE*» TF$> TG*, TH$) TI*» TJ*» TK$, TL*, TM*, TN* 5 SS* : SV*=" " : F0RX = 1T036 : READSV : SV*=SV 

*+CHR*(SV) :NEXTi-RESTORE 
250 XX=l:LF*=" " : LL$=STRING$ ( 80? "-" ) 
260 GOSUB3350 : J= 1 : GOSUB2480 
270 GOSUB380 : PR I NT " FUNCT I ONS : 

*( A > D D ACCOUNTS 

*( C ) U S T M E R ACCOUNTS 

*< T ) R A N S A C T I N S 

*( P ) S T TRANSACTI N S 

-M R ) E P R T 8 

*< E ) N D OF PERIOD 

*C 5 > Y S T E M STATUS" 

280 PRINT" *( 3 ) E X I T PROGRAM" 

290 PRINT:PRINT"SELECT FUNCTION — > "? 

300 FL=1:GOSUB390:IFCF=1THEN370ELSES=INSTR("ACTPRES'MN*):IFS=0THENPRINTCHR*(8); 

: GOTO300 
310 IFS>lANDS<7ANDTI=0THENCLS:PRINTa470> "NO ACCOUNTS ON FILE" :FORQO=1TO1500 :NEXT 

:GOTO270 
320 ONSGOTO610, 1080* 1580* 1630*2470)2460*3460 
330 IFFD-0THEN270ELSECLS:PRINTa474, "SORTING DATA" :GOSUB340: CLEAR50: RUN" ARSORT" :E 

ND 



RADIO SHACK TRS-80 ACCOUNTS RECEIVABLE PROGRAM PAGE 2 

340 CLOSE :GOSUB3430: OPEN" 0" , 1 , "TRANSFER: 1 » 

350 PR I NT# 1 , P I * : PR I NT# 1 » PD* : PR I NT# 1 , PS* : PR I NT# 1 » PT* : PR I NT# 1 » PG* 

360 CL0SE1: RETURN 

370 CLS:PRINT3473, "END OF PROGRAM 

" : GOSUB3430 : CLEAR50 : END 
380 CLS:PRINTTAB(15)"TRS-80 ACCOUNTS RECEIVABLE SYSTEM" : PRINT31 17, LEFT* (TIME*, 8) 

: RETURN 
390 WD=FRE("" ) 

400 I N*= " " : CF=0 : W*= I NKEY* : WD=0 : WS=WD : WL=WD : I FFL=WDTHENFL= 1 
4 1 PR I NTSTR I NG* < ABS ( FL ) » CHR* ( 1 36 ) ) ; STR I NG*( ABS ( FL ) , CHR* ( 24 ) ) ; 
420 PRINTCHR*( 14) ; : F0RW=1T025 : W*=INKEY* : IFW*<>" " THEN430ELSENEXT : PRINTCHR* ( 15 ) 5 :F 

ORW= 1 T025 : W*= I NKEY* : I FW*< > " " THEN430ELSENE X T : GOTO420 
430 IFW*OCHR*( 13)THEN450ELSEPRINTSTRING*(ABS(FL)-WL, " " ) 5 
440 PR I NTCHR* (15);: W=25 : NEXT : RETURN 
450 I F W * < > " a " T H E N 4 7 
460 CF=1 : PR1NTCHR*( 15 ) ; : RETURN 

470 PRINTCHR*( 14) ; : IFW*=CHR* ( 24 ) THENPRINTSTRING* ( WL - CHR* ( 24 ) ) ; :GOTO400 
480 IFW*OCHR* ( 8 ) THEN520ELSEIFWL=0THEN420ELSEPRINTCHR* ( 24 ) ; : IFFL>0THEN500ELSEIFP 

EEK ( 1 64 1 8 ) =44THEN5 1 
490 I FPEEK ( 1 64 1 8 ) ==46THENWD=0 : GOTO500ELSE I FPEEK ( 1 64 1 8 ) =430RPEEK ( 1 64 1 8 ) =45THENWS=0 
500 I N*=LEFT* ( I N* ■> LEN ( I N* ) - 1 ) 
5 1 WL=WL-- 1 : POKE 1 64 18,1 36 : GOTO420 

520 I FABS ( FL ) ==WL THEN420ELSE I FFL>0THEN I FW*> = " " ANDW*<= " z " THEN570 
530 I FW*= " . " ANDWD==0THENWD= 1 : 6OTO570 
540 I FW*= " » " THENPR I NTW* ; : WL=WL+ 1 : GOTO580 
550 I F ( W*= " - " ORW*= " + " ) ANDWS=0ANDWL=0THENWS== 1 : GOTO570 
560 I FW* < " " ORW* > " 9 " THEN420 
570 PR I NTW*; : IN*=IN*+W* : WL=WL+1 
580 I FABS ( FL ) = 1 THEN440ELSE420 

590 PRINTS128? CHR*(31 ) ; " (TYPE a TO EXIT TO MENU) ";: RETURN 
600 PR I NTS 128, CHR* (30) ;" (TYPE Ss TO REDO ACCOUNT) ";: RETURN 
610 J=TN 
620 CLS:PRINTTAB(26) "ADD ACCOUNTS 

•' : PRINT" 

FUNCTIONS: 

> ( ) ' L D A C C U N T 
X N ) E W AC C U N T 
>( 3 ) E X I T TO MENU 

SELECT FUNCTION --> " ; : FL=1 : GOSUB390 : IFCF=1THENG0T033BELSEZ9*=IN* 
630 CLS:IFZ9*="O"THENPRINTTAB(20) "ENTER OLD ACC0UNT"ELSEIFZ9*="N" THENPRINTTAB(20 

) "ENTER NEW ACCOUNT "ELSE620 
640 IFTI=PCTHENCLS:PRINT3468, "SYSTEM IS FULL ("; PC; "ACCOUNTS) ": 6OSUB3320 : GOTO330 
650 GOSUB590:PRINTa256, CHR* (30) ; : GOSUB2630 : GOSUB660 : GOTO670 
660 IFFDO0THENPRINTa960, " ( LAST ACCT.# :";IL;"/ NAME : ";NL*;" / # OF ACCTS";TI 
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;")";: RETURNELSERETURN 
670 PRINT3280, ; : FL=-4 : GOSUB390 : IFCF=0THENID=VAL < IN* ) ELSE620 
680 IFIN*<> " " THEN690ELSE670 
690 GOSUB600 

700 PR I NT3344 , ; : FL= 1 1 : GOSUB390 : I FCF=0THENF*= I N*+STR I NG* ( 1 1 -LEN ( I N* ) , ) ELSE630 
7 1 PR I NT3408 . ; : FL= 1 3 : GOSUB390 : I FCF=0THENL$= I N*ELSE630 
720 IFL*=""THEN710 

730 PRINT3472, ; : FL=17:GOSUB390: IFCF=0THENSA*=IN*ELSE630 
740 PRINT3536? ; : FL=1 5 : GOSUB390 : IFCF=0THENCS*=IN*ELSE630 
750 PRINT3600, ; : FL=5 :GOSUB390: IFCF=0THENZ*=IN*ELSE630 
760 IFZ*=""THEN750 

770 PRINT3664, ; : FL=12: GOSUB390: IFCF=0THENPH*=IN*ELSE630 
780 PRINT3728, ; : FL=--6: GOSUB390: IFCF=0THENCL ! =VAL ( IN* ) ELSE630 
790 PR I NT3792 , ; s FL=-3 : GOSUB390 : I FCF=0THENRQ=VAL (IN*) ELSE630 
800 I FRO> 1 00THEN790EL.SEPR I NT " 7. " ; 
810 PRINT3856* ; :FL=1 :GOSUB390s IFCF=0AND( IN*=" Y" ORIN*="N" ) THENFC*=IN*ELSEIFCF=I TH 

EN630ELSE810 
820 I FZ9*= " N " THENPB#=0 : TS#=0 : PR#=0 : CB#=0 : DS I =0 s DP I =0 : ST=0 : GOTO920 
830 CL.S:PRINTTAB(22)"0LD ACCOUNT - PAGE 2" : PRINTTABC20) " ( TYPE 3 TO REDO ACCOUNT) 

" : GOSUB2640 : GOSUB660 
840 PRINT3216, ; : FL=- 10 : GOSUB390 : GOSUB950 : IFCF==0THENPB#=VAL ( IN*) : PRINT3216, CHR*(3 

) ; US I NGL2* ; PB# ; ELSEONCFGOTO630 » 840 
850 PR1NT3280, ; : FL=-1 : GOSUB390 : GOSUB950: IFCF=0THENTS#=VAL ( I N* ) : PRINT3280? CHR*<3 

) ; US I NGL2* ; TS# ; ELSEONCFGOTO630, 850 
860 PRINT3344, ; : FL=8: GOSUB390:GOSUB980: IFCF=0THENDS ! =DX ! : PRINTCHR* ( 30 ) 5ELSEONCFG 

OT 0630 » 860 
870 PRINT3408? ; : FL=- 10 : GOSUB390 : GOSUB950 : I FCF=0THENPR#=-VAL ( IN* ) : PRINT3408, CHR*( 

30 ) ; US I NGL2* ? PR# ? ELSEONCFGOTO630 i 870 
880 PRINT34725 ; : FL=8 : GOSUB390: GOSUB980: IFCF==0THENDP I =DX I : PRINT CHR*( 30) ;ELSEONCFG 

OTO630 i 880 
890 CB#=PB#+PR#+TS# : PR I NT3536 , US I NGL2* ; CB# 
900 GOSUB2680 
910 PRINT3621 , ; : FL=-1 = GOSUB390: IFCFO0THEN63BELSEST=VAL ( IN* ) : IFST<0ORST>7THENPRI 

NTCHR*<8) ? SGOTO910 
920 TC=0 : CV#=CV#+CB# : T I =T I + 1 : FD= 1 : D I =0 : DJ=0 
930 GOSUB2740 : GOSUB2480 : GOSUB2560 : GOSUB2500 : TN=TN+1 : J=TN 
940 I L= I D : NL*=L* : GOTO630 
950 I F C F < > T H E N R E T U R N 

960 I FLEN ( I N* ) >=3THEN I FM I D* ( I N* < LEN (IN*) -2 >!)="." THENRETURN 
970 GOSUB 1 030 : RETURN 
980 I F I N*= " " THENDX ! =0 : RETURN 

990 IFLEN( IN*)O80RMID*( IN*, 3, 1 ) <> " / " ORMID* ( I N*» 6, 1 )<>"/" THENGOSUB1030 : RETURN 
1000 DX*=MID*( IN* 5 7»2)+MID$( IN*? 1 , 2 ) +MID* ( IN* 5 4? 2 ) 
1010 F0RW=1T06: IFMI D* ( DX* 5 U, 1 X" 0" ORMID* ( DX* 5 W, 1 ) > " 9" THENW=6 : NEXT : GOSUB1 030 : RETU 

RNELSENEXT 
1 020 DX ! =V'AL ( DX* ) : RETURN 
1 @.m PR I NT3960 , CHR* ( 30 ) ; : F0RW9= 1 T04 : F0RW8= 1 TO 1 5 : PR I NT3980 ■> " I NVAL I D FORMAT ! " I : NE 

XTW8 : F0RW8= 1 TO 1 5 : PR I NT3980 , CHR* ( 30 ) ; : NEXTW8 : NEXTW9 : CF=2 : GOSUB660 : RETURN 
1040 DX*=STR*(DX ! ) : DX*=RI GHT* ( DX*? LEN ( DX* ) -1 ) 
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1 050 I FLEN ( DX* ) <6THENF0RW= 1 T06-LEN ( DX* ) : DX*= "0" +DX* : NEXT 

1 060 I N$==M I D* ( DX* , 3 1 2 ) + " / " +M I D* ( DX* , 5 , 2 ) + " / " +M I D* < DX$ , 1 , 2 ) 

1070 RETURN 

1080 CLS:PRINTTAB(20)" CUSTOMER ACCOUNTS" 

1090 PR I NTS 128* CHR*<31 ) ; :GOSUB2630 

1100 PRINT3971, " (TYPE S) TO EXIT TO MAIN MENU)"; 

1110 PRINTS896, "ACCESS BY: (A)CCOUNT NUMBER OR BY (N)AME ? "; 

1120 FL==1 :GOSUB390: IFCF<>0THENGOTO330ELSEIFIN*<> " A" ANDIN*<> " N" THENPRINTCHR* < 8 ) ; : 

GOTO 1120 
1130 PR I NT 3960! CHR*(30) ; : IFIN*=" A" THEN AM=0 ELSE AM=1 
1 1 40 ON AM+ 1 GOTO 1 150,11 70 
1 150 GOSUB3190:PRINT3151, ; 

1160 FL=~'4:GOSUB390: IFCF=0THENL*=IN* : GOTOl 1 90ELSEGOTO1080 
1 1 70 G0SUB3 1 90 : P R I NT3280 , ; 

1 1 80 FL= 1 3 : GOSUB390 : I FCF=0THENL*= I N* : GOTO 1 1 90ELSEGOTO 1 080 
1 1 90 GOSUB2820 : Z8=N : I FKS=0THENPR I NT3896 , CHR* ( 30 ) ; TAB ( 20 ) " #* ACCOUNT NOT FOUND ** 

" ? :GOSUB3340: GOTO 1080 
1200 GOSUB3140 
1210 GOSUB3170 

1 220 FL= 1 : GOSUB390 : I FCF< >0THENGOTO330 
1 230 0$== I N* : I FO* < > " U " ANDO* < > " S " ANDO$ < > " N " ANDO$ < > " P " ANDO* < > " D " ANDO$ < > " T " ANDO* < > " H 

"THENPRINTCHR*(8) ; :GOTO1220 
1 240 I F0$= " T " THEN0NPTG0SUB3 140,3150: GOTO 1210 
1 250 I F0*= " H " THENG0SUB3 140: GOSUB3900 : G0SUB3 150: FORX= 1 TO 1 000 : NE XT : GOSUB3900 : GOSUB 

3140:60701210 
1 260 I F0*= " S " THEN 1 080 
1 270 I F0$---= " P " THENNZ=N : FP=- 1 : GOSUB 1 280 : GOTO 1 2 1 0ELSE I F0*= " N " THENNZ-N : FP= 1 : GOSUB 1 28 

: GOTO 1 2 1 0ELSEGOTO 1 290 
1 280 N=N+F P : I FN>TN- 1 THENPRINTS985 , " LAST ACCOUNT " ; : GOSUB3340 : N=NZ : J=P ( N, AM ) : RETUR 

NELSEIFN<lTHENPRINTa985, "FIRST ACCOUNT" ; :GOSUB3340:N=NZ : J=P( N, AM ) : RETURN 
1 285 J=P ( N , AM ) : I F J <0THEN 1 280ELSEGOSUB2480 : GOSUB2560 : GOSUB2570 : G0SUB3 140: RETURN 
1290 IFO$<>"D"THEN1390ELSEIFP(N, AMX0THEN1210 
1300 IFDIO0ANDUO0THENPRINT3832, CHR$(31 ); "CANNOT DELETE THIS ACCOUNT UNTIL AFTE 

R POST I NG " : GOSUB3340 : GOTO 1 2 1 0ELSE I FPT= 1 THENG0SUB3 1 40 
1310 PRINTS768, CHR$(31 ) ; STRING* ( 64, 95 ) ; "OK TO DELETE ? (Y/N) " ; 
1320 FL=1 :GOSUB390: IFCFO0THEN1210ELSEIFIN*<> " Y" ANDIN*<> " N" THENPRINTCHR* ( 8) ; : GOT 

1 320ELSE I F I N*== " N " THEN 1210 
1 330 PR I NT3832 , CHR* (31);" DELET I ON I N PROGRESS " 
1340 FOR ND=1T0TN-1 
1350 FOR NE=0TO2 

1 360 I FP ( ND , NE ) - JTHENP ( ND , NE ) =- J 

1370 NEXT NE,ND:F=F+1 : CV#=CV#-CB# : TI'=TI--1 : K=UN 
1380 VA*="D" :VB=ID: I N*=LEFT* ( T IME*, 8 ) : GOSUB980 : VC ! =DX ! : VD ! =0 : VI*=" N" : VJ*=CHR* < 4 ) 

: VK*=CHR* ( ) : VL*=CHR* ( ) : VE#=-CB# : VF#=0 : VG#=0 : VH#=VE# : GOSUB 1 620 : GOSUB 1 590 : G 

OSUB1610:CLOSE3:PRINTai57, " (DELETED)" ; :GOTO1210 
1390 IFO*O"U"THEN1210 

1400 PRINTa832,CHR*(31 ); "ENTER LINE NUMBER TO BE CHANGED: "; 
1410 FL=- 1 : GOSUB390 : I FCF < > 0THEN 1210 

1420 UP=VAL(IN*> :IFUP<10RUP>8THENPRINTCHR*(8) ; :GOTO1410 
1430 IFUP<8ANDPT=lTHENGOSUB3140:PRINTa768,STRING*(64,95) ;CHR*<31) ; : ELSEIFUP<8AND 
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PT=2THENG0SUB3i 90 
1440 ONUPGOTO1450? 1460? 1470? 1480? 14905 1500s 1520) 1530 

145B PRINTT3*;" " ; : FL=17 : GOSUB390 : IFCF=0THENSA*=IN* : GOTO1560ELSE121 
1460 PRINTT4*;" "; : FL=15 : GOSUB390 : IFCF=0THENCS*=IN* : GOTO1560ELSE1210 
1470 PRINTT5*; " " ; : FL=5 : GOSUB390 : IFCF=0THENZ*=IN* : FD=1 : GOTO1560ELSE1 210 
1480 PRINTT6*; " " ; : FL=12 : G0SUB390 : I FCF=0THENPH*=IN* : 6OTO1560EL.SE1210 
1490 PRINTT7*? " " ; : FL=-6 : GOSUB390 : IFCF=0THENCL ! =VAL ( IN*) : GOTO1560ELSE1210 
1500 PRINTT8*; " " 5 :FL=-3:GOSUB390: IFCF=0THENRQ=VAL ( IN*)ELSE1210 
1510 I FRG!> 1 00THEN 1 500ELSEPR I NT " 7. " ; : GOTO 1 560 
1520 PRINTT9*; " " ; :FL=1 :GOSUB390: IFCF=0AND< IN*=" Y" ORIN*="N" ) THENFC*=IN$ : GOTO1560 

ELSE I FCF= 1 THEN 1 2 1 0ELSE 1 520 
1530 IFPT=2THENGOSUB3150:PRINT3768»STRING*<64>95> 5 "SELECT NEW STATUS CODE: ";:EL 

SEG0SUB3 1 90 : PR I NT " SELECT NEW STATUS CODE : " ; 
1540 FL=~1 :GOSUB390: IFCFO0THEN1210 

1550 ST=VAL( IN*) : IFST<0ORST>7THENPRINTCHR* ( 8 ) ' :GOTO1540 
1 560 6OSUB2500 : I FUP=STHENG0SUB3 1 50ELSEGOSUB3 1 40 
1570 G0T0121B 
1^80 CLS: IFEP=0THENPRINT3474> "TRANSACTIONS" : GOSUB340 : CLEAR50 : RUN" ENTRAN" :END:ELS 

EPRINTa462, "END OF PERIOD PROCESSING INCOMPLETE" : GO5UB3340:GOTO330 
1590 IN*=STR*(VE#) : GOSUB3800 : VE$=V* : IN*=STR* ( VF# ) : GOSUB3800 : VF*=9* 
1 600 I N*=STR* ( VG# ) : GOSUB3800 : VG*=V* : RETURN 

1610 GOSUB30 1 : GOSUB3050 : GOSUB3030 : U=U+ 1 : UT=UT+ 1 : UN=UN+ 1 : RETURN 
1 620 CL0SE3 : OPEN "R",3i PT* : RETURN 

1 630 CLS : PR I NTTAB ( 23 ) " POST TRANSACT I ONS " : PR I NT 

1640 IFUN=lTHENCLS:PRINTSi468. "TRANSACTION FILE IS EMPTY" : GOSUB3340 : GOTO330 
1650 PR I NT "OPT IONS: 



NOT' L ) I S T 



A L L 



T R A N S A C T I N S 



NOT< P ) S T 



A L L 



TRANSACTI N S 



NOT< 6 ) E N E R A L 



LEDGER 



RECAP 



NOT < a 

1660 PRINT 
1670 PRINT" 



EXIT 



T 



MAIN 



MEN U" 



: -0THENGOTO330ELSETS=INSTR( "LPG" ■> IN*) : IFTS=BTHENPRINTCHR* 



SELECT OPTION — > 
1 680 FL = 1 : 6OSUB390 : I F CF 

( 8 ) ; : GOTO 1 680 
1 690 ONTSGOTO 1700? 1 820 , 2240 
1 700 GOSUB 1 620 : GOSUB3200 : I FCF < > 0THEN 1 630 

1710 LPRINTLEFT*(TIME*>8) ;" : COMPLETE TRANSACTION FILE" : LPRINTLF* 
1720 GOSUB2410:L*=" " 

1 730 FORK= 1 TOUIM- 1 : GOSUB30 1 : GOSUB3050 : GOSUB3060 
1740 GOSUB 1780 

1 750 G0SUB32 10:1 FCF=2THENCF=0 : G0SUB24 1 
1760 GOSUB2440 

1770 NEXT:CL0SE3:LPRINTLF*:LPRINT"END OF LISTING" : LPRI NTCHR* ( 1 2 ) 
1780 IFVA*="S"THENVA*="SALE" :A1=1 ELSEIFVA*=" P" THENVA*=" PMNT" :A1= 



GOTO 1630 

2 ELSEIFVA*= 



" B " 
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THENVA*="B/D" :A1=2 ELSEVA*="B/D" : Al=2 : RM$="GL FILE" : GOTO 1800 
1 790 I FV I *= " N " THENRM*= " NORMAL " ELSE I FVI *= " C " THENRM*= " CORRECT I ON " ELSE I FVI *= " A " THEN 

RM*=" SUPERSEDED" ELSE IFVI*="B"THENRM*==" CORRECTION PENDING" 
1 800 I FSGN < VB ) = 1 THENRM*=RM*+ " -UNPOSTED " ELSERM*=RM*+ " -POSTED " 
1810 RETURN 
1820 IFU=0THENCLS:PRINTa468? "NO UNPOSTED TRANSACTIONS" : GOSDB3340: GOTO1630ELSECLO 

SE3:0PEN" R" » 3, PT* : GOSUB3200 : IFCFO0THEN1630 
1 830 FORG=l TOGT : Gtt ( G ) ==0 : NEXT 

1840 LPRINTLEFT*(TIME*,8) "" - POSTING REPORT #";R0 
1850 GOSUB2410 

1 860 FORPR= 1 TOUN- 1 : K=PR : GOSUB30 1 : GOSUB3050 

1870 IF(SGN< CVI < VI*) )=-lANDV7*<>"B" )0RV7*=" A" THEN1980ELSEGOSUB3060 
1 880 I FVA$= " D " THENGOSUB2040 : VB=-ABS ( VB ) : GOSUB3030 : GOSUB 1780: L*= " " : GOTO 1 960 
1 890 AM=0 : L*=STR* ( ABS < VB ) ) 
1 900 GOSUB2820 : I FK5-0THEN 1 950 
1910 I FVI $= " B " THEN2000ELSE I FVA*= " P " THEN 1 930ELSE I FVA*= " B " THENPB#=0D0 : CB#=0D0 : CV#== 

INT ( ( ( CVtt+VEtt ) *100D0 ) +„ 5D0 ) / 1 00D0 : TS#=0D0 : PR#=0D0 : TC=-1 : GOTOl 940 
1 920 DS ! =VC ! : TS#=TStt+VH# : CBtt=CBtt+VH# : CV#=CVtt+VHtt : GOTO1940 
1930 DP ! =VC ! : PR#=PR#+VE# : CB#=CB#+VE# : CV#=CVtt+VEtt 
1 940 VB==-ABS ( VB ) : TC=TC+ 1 : GOSUB2500 : GOSUB3030 : 6OSUB2040 
1950 GOSUB17S0: IFKS=0ANDVA*O"D"THENRM*=" INVALID ID#-NOT POSTED" " 
1 960 G0SUB32 10:1 FCF=2THENCF=0 : G0SUB24 1 
1970 GOSUB2440 

1980 NEXT:GOSUB2080: R0=R0+1 : IFR0>32767THENR0=i 
1990 U=0:LPRINTLF*:LPRINT"END OF REPORT" :LPRINTLL* :LPRINTCHR$ ( 12) : CL0SE3 :G0T0163 


2000 I F VA$= " P " THEN2020 
201 TS#=TS#-VH# : CB#=CB#-VH# : CV#=CV#-VH# : G# ( VJ ) =G# < VJ ) -VE# : G# ( VK ) =G# ( VK ) -VF# : G# ( 

VL ) ==G# ( VL ) -VG# : G# < 1 ) =G# ( 1 ) ~VH# : GOTO2030 
2020 PR#=PR#-VEtt : CB#=CB#+VE# : CV#=CV#+VE# : G# ( VJ ) =Gtt ( VJ ) -VE# : G# < 2 ) =G# ( 2 ) -VE# 
2030 V I $= " A " : TC=TC- 1 : VB=-ABS ( VB ) : GOSUB2500 : GOSUB3030 : GOTO 1 950 
2040 Gtt ( VJ ) =6# ( V J ) +VE# : 6# ( VK ) =G# ( VK ) +VF# : G# < VL ) =6# ( VL ) +VG# 
2050 IFVA$="S"THENG#( 1 )=G#< 1 ) +VH# 
2060 I FVA*= " P " ORVA$= " B " THENGtt ( 2 ) =G# ( 2 ) +VE# 
2070 RETURN 

2080 LPRINTCHR$(12):LPRINTLF$:LPRINT"GENERAL LEDGER INPUTS" : LPRINTLF* 
2090 LPRINTTAB ( 20 ) " DEB I T ( + ) " ; TAB (50)" CREDIT ( - ) " 

2100 LPRINTTABC20) " " ;TAB(50) " " 

2110 LPRINTLF* 

2 1 20 OPEN " R " , 1 » PG* : G= 1 : GOSUB3080 : G0SUB3 1 20 : G0SUB3 1 30 : AR=GA : GC#=GC#+G# < 1 ) : G0SUB3 1 

00 : G=2 : GOSUB3080 : G0SUB3 1 20 : G0SUB3 1 30 : GC#=GC#+G# < 2 ) : GOSUB3 1 00 
2150 F0RG=3T0GT : GOSUB3080 : G0SUB3 1 20 s GOSUB3 1 30 
2160 AN*=MID*(GL* 5 (G-l )*5+l»5) 
2170 LPRINT"6LC:" ;G; : IFSGN(G#(G) )=-lTHEN2200 
2180 LPRINTTAB < 10)AR;"/ A/R" ; TAB (25 ) ;USINGL2* ; Gtt (G) ; 
2190 LPRINTTAB(40)GA;"/ " ;AN$'TAB(55) ; USINGL2* ; -Gtt ( G ) :GOTO2220 
2200 LPRINTTAB( 10)GA;"/ " "AN*; TAB (25) 5USINGL2* ;-G#(G) ; 
2210 LPRINTTAB(40)AR;"/ A/R" ; TAB (55 )USINGL2* ! Gtt ( G) 
2220 GCtt=GC#+G#(G) :GOSUB3100 
2230 NEXT : CLOSE 1 : RETURN 
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2240 CLOSE1 :OPEN" R" » 1 » PG* :GOSUB3200: IFCFO0THEN1630 
2250 LPRINTLEFT*<TIME*»8) 5" - GENERAL LEDGER RECAP "; 
2260 LPR I NT" (TOTALS THIS MONTH TO DATE) - REPORT #";R1 
2270 LPRINTLL* : LPRINTLF* 
2280 LPR I NTTAB ( 20 ) " DEB I T < + ) " ; TAB ( 50 ) " CRED I T ( - ) " 

2290 LPRINTTAB(20) " " ;TAB(50) " -" .'LPRINTLF* 

2300 G=l :GOSUB3080:GOSUB3120.-AR=CVICG1*) 

2320 F0RG=3T0GT : GOSUB3080 : 60SUB3 1 20 : G0SUB3 i 30 

2330 AN*=M I D* ( GL* , ( G- 1 ) *5 + i , 5 ) 

2340 LPRINT"GLC:" ;G; : IFSGN ( GC# ) =-lTHEN2370 

2350 LPRINTTAB(10)AR;"/ A/R" ; TAB( 25 )USINGL2* ; GC# 5 

2360 LPRINTTAB(40)GA;"/ " ; AN* ; TAB ( 55 ) USINGL2* ; -GC# : GOTO2390 

2370 LPRINTTABC 10)GA; "/ " ; AN* ; TAB ( 25 ) USINGL2* ; -~GC# ; 

2380 LPRINTTAB(40)AR; "/ A/R" ; TAB(55 ) USINGL2* ; GC# 

2390 NEXT:CL0SE1 :R1=R1+1 : IFRi >32767THENR1=1 

2400 LPR I NTLF* : LPR I NT " END OF REPORT " : LPR I NTLL* : LPR I NTCHR* (12): GOTO 1 630 

2410 LPRINTSTRING*(80»61 ) 

2420 LPRINT"TYPE" ; TAB ( 9 ) " ACCT#" ;TAB< 16) "NAME" ;TAB( 32) " DATE" ;TAB< 43) " INV#" ;TAB(60 

) "REMARKS" 
2430 LPR I NT" 

" ; TAB < 8 ) " AMOUNT ( GL C ) " ; TAB ( 26 ) " AMOUNT ( GL C ) " ; TAB < 44 ) " AMOUNT ( GL C ) " ; TAB ( 63 ) " 

TOTAL (GLC)" : LPRINTSTRING* (80» 61 ) : RETURN 
2440 LPR I NTMA* ; TAB ( 9 ) ABS ( VB ) ; TAB ( 1 6 ) L* ; TAB ( 32 ) VC* ; TAB ( 42 ) VD ! ; TAB < 60 ) RM* 
2450 LPRINT"* " ; TAB ( 4 )USIN6L2* ; VE# ' :LPRINT" (" ;VJ;" )" 5 TAB( 22)USINGL2* ; VF# ; :LPRINT 

" <" ;VK?" )" ;TAB(40)USINGL2*;VG#; :LPRINT" (" ;VL?" )" ;TAB( 58) USINGL2* ; VH#; :LPRIN 

T" <" ;'A1 ; " ) " :LPRI NTLL*: RETURN 
2460 CL.S:IFUO0THENPRINT3464, "UNPOSTED TRANSACTIONS IN SYSTEM" : GOSUB3340 : GOTO330 

ELSEPRINT3468* "END OF PERIOD PROCESSING" :GOSUB340: CLEAR50: RUN" PROCESS" :END 
2470 CLS:PRINT3476 ! "REPORTS" : GOSUB340 : CLEAR50 : RUN" REPORTS" :END 
2480 JR= I NT ( ( J- 1 ) /2 ) + J. : JD= J--2* I NT ( ( J- 1 ) /2 ) - 1 
2490 FIELD2* JD*127ASD*t 11ASD0*, 13ASD1*, 17ASD2*, 15ASD3* 5 5ASD4*? 12ASD5*» 4ASD6** 4AS 

D7* , 8ASD8* 5 8ASD9* > 8ASDA* , 8ASDB* » 4ASDC* , 2ASDD* , 1 ASDE* , 1 ASDF* , 1 ASDG* , 1 ASDH* » 2 

ASD I * » 2ASD J* : RETURN 
2500 CB#= I NT ( ( CB#* 1 00D0 ) + . 5D0 ) / 1 00D0 : PB#= I NT ( < PB#* 1 00D0 ) + . 5D0 ) / 1 00D0 : TS#= I NT ( ( TS 

#*100D0)+.5D0)/100D0:PR#=INT( < PR#*100D0) +. 5D0 ) / 100D0 : R6'*=CHR* ( RO ) :ST*=CHR*< 

ST ) : TC*=CHR* ( TC ) : LSETD0*=F* : LSETD 1 $=L* : LSETD2*=SA* : LSETD3*=CS* : LSETD4*=Z* 
2510 LSETD5*=PH*:LSETD6*=MKS*(DS! ) :LSETD7$=MKS* ( DP ! ) ;LSETD8*=MKD* < PB#) 
2520 LSETD9*=MKD* ( TS# ) : LSETDA*=MKD* ( PR# ) : LSETDB*=MKD* ( CB# ) 
2530 LSETDC*=MKS*( CL ! ) : LSETDD*=MKI*< ID) :LBETDE*=RQ* 

2540 LSETDF*=ST* : LSETDG*=FC* : LSETDH*=TC$ : LSETD I $=MK I * < D I ) : LSETDJ*=MK I * ( D J ) 
2550 PUT2iJR: RETURN 
2560 GET2i JR." RETURN 

2570 F*=D0* : L*=D 1 * : SA*=D2* : CS*=D3* : Z *=D4* : PH*=D5* : DS ! =CVS ( D6* ) 
2580 DP ! =CVS < D7* ) : PB#=CVD < D8* ) : TS#=CVD ( D9* ) : PR#=CVD < DA* ) 
2590 CB#=CMD(DB*) : CL ! =CVS( DC* ) : ID=CVI (DD*) : RQ*=DE* 
2600 ST*=DF* : FC*=DG* : TC*=DH* : DI=CVI ( DI* ) : DJ=CVI < DJ* ) 
2610 RO=ASC(RO*) :ST=ASC(ST*) :TC=ASC(TC*) 

2620 DX!=DS! : GOSUB1040 : DS*=IN* : DX ! =DP ! : GOSUB 1040: DP*= IN*: RETURN 
2630 PRINTT0*:PRINTT1*:PRINTT2*:PRINTT3$:PRINTT4*:PRINTT5*:PRINTT6*:PRINTT7*:PRI 

NTT8*: PRINTT9*: RETURN 
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2640 
2650 
2660 



2670 

2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
27B0 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 

3030 

3040 
3050 
3060 



:GOSUB2690s RETURN 



i) : RETURN 

30) ; "SELECT ONE OF 
: TG* ; TAB ( 32 ) " 4 - 



1 



'3 



: TH* ■ 
:TI$! 

iTJ*! 



TAB (32) 
TAB (32) 
TAB (32) 



7 



THE FOLLOWING 
" ; TK* 
" ;TL* 
" ;TM* 
" ; TIM* 



STATUS NUMBERS: 



P ( J 5 1 ) = J : P ( J i 2 ) = J : RETURN 



:)=ABS(J) : RETURN 



:0THENN=N+ 1 : GOTO2840 



PRINTTA$:PRINTTB*:PRINTTX$:PRINTTD*:PR.INTTE*:PRINTTF$ 
IFO*="H"THEN2660ELSEPRINTTAB(18)" (8) STATUS OF ACCOUNT; 
PRINT" 

(8) STATUS OF ACCOUNT : " ; : IFST=0THENPRINTT6*ELSEIFST=1THENPRINTTH*ELSEIFST 
•-2THENPR I NTT I *ELSE I FST=3THENPR I NTT J*ELSE I FST=4THENPR I NTTK*ELSE I F5T=5THENPR I 
NTTL*ELSE I FST=6THENPR I NTTM*ELSE I FST=7THENPR I NTTN* 
PRINT" 

" ;STRING*C64»9f 
PRINT3576) CHR*C 
PRINTTAB(3) 
PRINTTAB(3) 
PRINTTAB(3) 
PRINTTAB(3) 
RETURN 

I FF=0THENP < J j ) = J i 
F0RN==1T0TN-1 

IFSGN(P(N 5 0) )=--lTHENP(N 5 0)=ABS.(P(Ni0) ) :J=P(N»0) :TN=TN-1 :F=F-1 : GOTO27B0 
NEXT 

FORN== 1 TOTIM : I F ABS ( P ( N , 1 ) ) = JTHENP ( N i 1 ) =ABS ( J ) : GOTO2800 
NEXT 

FORN= 1 TOTN : I FABS ( P ( Hi 2 ) ) = JTHENP ( N , : 
NEXT: RETURN 
NL=0:NH=TN 

KS= I NT ( ( NH-NL ) /2 ) : I FKS=0THENRETURNELSEN=KS+NL 
I FN=NHTHENNH= I NT ( ( NH-NL ) /2 ) +NL : GOTO2830ELSE I FP ( N , AM ) ■ 
J=ABS ( P ( N , AM ) ) : GOSUB2480 : GOSUB2560 : DD=CV I ( DD* ) 
IFAM=1THEN2890 

I FDD=VAL ( L* ) THENL*=DD* s GOTO2920 
IFDD>VAL ( L* ) THENNH=N : GOTO2830ELSE291 
I FL..EFT* ( D 1 * > LEN ( L* ) ) =L*THENL*=D 1 * : GOTO2920 
I FLEET* ( D 1 * , LEN ( L* ) ) >L*THENNH=N : GOTO2830 
NL=N:GOTO2830 

IFSGN( P(N, AM) )=-lTHENKS=0: RETURNELSEGOSUB2570: RETURN 
PRINT3151, ID? :PRINTa216,F*;:PRINTa280 5 L*; : PRINT3344, SA* ; 
PRINTa408 ) CS*; :PRINT3472»Z$; :PRINT3536» PH* ; : PRINT3599 5 CL 
PRINTS663.RQ;" 7." 5 : PRINT3728, FC*; 
.RETURN 
PRINTa88»USINGL2*;PB#;:PRINTai52>USINGL2*;TS#; 

PRINTa219,DS*; :PRINTa2805USINGL2*;PR#; 

PR I NT3347 , DP* ; : PR I NT3408 i US I NGL2* ; CB# ; 

IFO*=" H" THENRETURNELSEPRINT3VAL( MID* ( SS* 5 ST*3+1 , 3) ) -192, ' 

KR=INT( (K-l )/8)+l :KD=K-8*INT( (K-l >/8>-l 

FIELD3»KD*31ASW*» 1 ASV0*? 2ASVl*i 4ASV2*» 4ASV3* ? 4ASV4** 4ASV5*, 4ASV6* 5 1A5V7*j2 

ASV8$i2ASW*» 1ASVX*, 1ASVY** 1ASVZ* : RETURN 

LSETV0*=VA* : LSETV 1 *=MK I * ( VB ) : LSETV2*=MKS* ( VC ! ) : LSETV3*=MKS* ( VD ! ) 

* : LSETV5*=VF* : LSETV6*=VG* : LSETV7*=V I * : LSETVX*=VJ* : LSETVY*=VK* : LSETVZ*=VL 

PUT3»KR: RETURN 

GET3»KR= RETURN 

VA*=V0* : VB=CV I ( V 1 * ) : VC ! = CVS ( V2* ) : VD ! =CVS ( V3* ) : VE*=V4* : VF*=V5* : VG*=V6* t V I *=V 

7* : VJ=ASC ( VX* ) : VK=ASC ( VY* ) : VL=ASC ( VZ* ) : VJ*=VX* : VK$=VY* : VL*=VZ* 



: RETURN 



:LSETV4*=VE 
.* 
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3080 
3090 
3100 
31.10 
3120 
3.130 
3140 

3150 
3160 
3170 



3180 
3190 
3200 

3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 

3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 



DX ! =VC ! : GOSUB 1 040 : VC*= I N* : V*=VE* : GOSUB3860 : VE#=N# : V*=VF* : GOSUB3860 : VF#=N# : V 

*=V6* : GOSUB3860 : VG#=N# : VH#=VE#+VF#+VG# : RETURN 

GR=INT( (G-l)/25)+l :GD=G-25*INT( (G-l)/25)-l 

F I ELD 1 , 6D* 1 0ASG0* , 2ASG 1 * » 8ASG3* : RETURN 

LBETG 1 *=MK I * < GA ) : LSETG3*=MKD* ( GC# ) 

PUT1 5 GR: RETURN 

GET1,GR: RETURN 

GA=CVI CGI*) :GC#=CVD<G3$) : RETURN 

CLS:PRINTTAB(20)" CUSTOMER ACCOUNTS 

" : GOSUB2630 : GOSUB2930 : PT=2 : RETURN 

CLS:PRINTa64, CHR*(31 ) ; : 6OSUB2640 : GOSUB2970 : PT=1 

PRINTCHR*<28) ; "ACCOUNT:" "ID;"- " ;L*> , "PAGE 2" 5 : RETURN 



95) ;" (S)EARCH 



(P)REVIOUS 



COPY 



(D)ELETE 



:a> EXIT TO MENU 



PRINT376B, STRING* (64 

RN PAGE 

(U)PDATE (H)ARD 

ENTER SELECTION — > "; 

RETURN 

PRINTCHR*<29) ;CHR*<30) ; : RETURN 

I F PEEK ( 1 43 1 2 ) < 1 28THENP0KE 1 6425 > 1 

" : GOSUB3340 : CF=2 : RETURN 

IFPEEK( 16425 )<54THENRETURNEL3ECF=2: LPRINTCHR* < 12) 

CLS:PRINT3468 ! "ENTER PASSWORD — > "; 

P*= F0RX=1T08 

PE*=INKEY*: IFPE*=" " THEN3240ELSEIFPE*< " " ORPE*>" Z " THEN3260 
PRINT"#" ; :P*=P*+PE*:GOTO3270 
I FASC ( PE* ) = 1 3THEN3280ELSE3240 
NEXT 

:PD*=" CUSDATA. 

:PT*=" TRANSACT 



(N)EXT 



(T)U 



:RETURNELSECLS:PRINTa468 5 "PRINTER NOT READY 



RETURN 



+ P*+" : 
"+P$+' 



1 



1 



=1THENRETURNELSEPRINTCHR*(S) ; : GOTO3330 



PI*="CUSINDEX. "+P*+" 

PS*=" CUSSETUP. " +P*+" 

PG*="GLFILE. "+P*+" : 1 

RETURN 

PRINT" 

TYPE a TO EXIT — > " 

FL=-1 :GOSUB390: IFCF= 

FORTT= 1 TO2500 : NEXT : RETURN 

OPEN" I" , 1,PS* 

L I NE I NPUTtt 1 , N* : L I NE I NPUT# 1 , A* : L I NE I NPUT# 1 > CZ $ 

LINEINPUT#1,PN*:INPUT#1.FC! , GT» PD» PC » PT» PP: LINE INPUT* 1 » GL* 

CLOSE 1 :DIMG#(6T) : IFPD=2THENPT*=LEFT$ < PT*, LEN< PT*) ~1 ) + "2" 

OPEN" I" j 1 » PI* 

INPUT#1»TI»TN,F > U»UT ) UN»EP ) R0»R1' 

FORN= 1 TOTN- 1 : I NPUTtt 1 , P ( N » ) » P < N , 

OPEN" R" , 2» PD* : RETURN 

OPEN"0"» 1»PI* 

PR I NT# 1 , T I ; TN ; F ; u ; UT ; UN ; EP ; R0 ; R l ; R2 ; R3 ; R4 ; R5 ; R6 ; R7 ; STR* ( CV# > + " D0 " 

FORN=lTOTN-l:PRINT#l»P(N»0) ;P(N»1);P<N»2) : NEXT : CLOSE1 : RETURN 

CLS : PR I NTTAB ( 20 ) " SYSTEM STATUS" : PR I NT3 1 1 7 » LEFT$ < T I ME* » 8 ) 

PR I NTTAB ( 20 ) N* : PR I NTTAB < 20 ) A* : PR I NTTAB ( 20 ) CZ* ; " 



R2 
1), 



R3*R4»R5»R6»R7»CV# 
HN,2) : NEXT: CLOSE 1 



3480 PRINT"NUMBER OF CUSTOMERS " 'STRING* ( 6, 46)USINGL0* ;TI 
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3490 PRI NT " TRANSACT I ONS 

POSTED " ; ST R I NG$ ( 1 3 , 46 ) ; US I NGL.0* ; UT-U 
3500 PRINT" UNPOSTED " ;STRING*< 11,46) ;USINGL0*;U 
35 10 PR I NT " TOTAL " ; ST R I NG* ( 1 4 , 46 ) ; US I N6L0* ; UT 
3520 PRINT" 

AMOUNT RECEIVABLE " 5 STRING* < 5 , 46 ) ; U5INGL2* ; CV# 
3530 PR I NT " F I NANCE CHARGE " ; STR I NG* < 1 4 , 46 ) ; US I NGL3* ; FC ! * 1 00 ; : PR I NT " 7. " : GOSUB3320 

: GOTO330 
3540 IFERR/2+l=54THENCLS:PRINT3465, "NO FILES ON DATA DISK 



" :CLEAR50sEND 
3550 IFERR/2+l=57THEN3580 
3560 IFERR/2+l=70THENCLS:PRINTa46! 



'*** INVALID PASSWORD *** 



PROGRAM TERMINATED 

" :CLEAR50:END 
3570 PRINT: PRINTCHR* ( 30) ; "UNEXPECTED ERROR CODE " ; ERR/2+1 ;" IN L 

: GOTO370 
3580 TE==TE+1 : IFTE>5THENCLS : PRINT3404, "** DISK I/O ERROR **":G03 

E RESUME 

DATA "####" , "####.##"5 "#######.#'#+" j "##.##" 



INE" ;ERL 
UB3320:G 



: G0SUB332 
OT 0370 ELS 



FIRST NAME, INITIAL- 
< 1 ) STREET ADDRESS - 

(3) ZIP CODE 

(5) CREDIT LIMIT 

(7) FIN. CHG. (Y/N)- 

SALES THIS MONTH 

PAYMENTS RECEIVED — 
CURRENT BALANCE 



3590 

3600 DATA "ACCOUNT NUMBER — 

3610 DATA "LAST NAME 

3620 DATA" < 2) CITY, STATE - 

3630 DATA" (4) PHONE NUMBER 

3640 DATA" (6) MIN. PAYMENT 

3650 DATA" PREVIOUS BALANCE 

3660 DATA" DATE OF LAST SALE 

3670 DATA "DATE LAST PAYMENT 

3680 DAT A" NOTHING DUE / CREDIT" 

3690 DATA" CURRENT BALANCE DUE" 

3700 DATA "30-60 DAYS OVERDUE" 

3710 DATA "60-90 DAYS OVERDUE" 

3720 DATA" PAST 90 DAYS OVERDUE" 

3730 DATA" CREDIT SUSPENDED" 

3740 DATA "LEGAL ACTION PENDING" 

3750 DATA" INACTIVE ACCOUNT" 

3760 DATA "70476883289673379786 1925" 

3770 DATA33 , 64 , 60 , 6 , 64 , 78 , 62 , 1 27 , 1 45 , 48 , 2 , 1 4 , 3 

3780 DATA0,35, 16,241,62, 13,205,59,0, 124,254,63 

3790 DATA25 4,0,32, 224 , 20 1 

3800 N#=VAL (IN*): W#=ABS ( N# ) * 1 00 : V*= " " 

3810 X=W#/D1#:W#=W#-X*D1#:V*=V*+CHR*(X-(N#<0)*128) 

3820 X=W#/D2# : W#=W#-X*D2# = V*=V*+CHR* < X ) 

3830 X=W#/D3# : W#=W#-X*D3# : V*=V*+CHR* ( X ) 

3840 V*=V*+CHR*(W#) 

3850 RETURN 

3860 W#=(ASC<MID*(V*i 1,1) ) AND 127 ) *D1#+ASC<MID* ( V*, 

#+ASC<MID*(V$,4, 1 ) ) 
3870 IFASC(LEFT*(V*, 1 ) ) >127THENW#=-W# 



, 121,205 
32,229, l: 



,59 



1 ) )*D2#+ASC(MID*(V*,3, 1 ) )*D3 
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3880 N#=W#/100 

3890 RETURN 

39B0 I FPEEK ( i 43 1 2 ) > 1 27THENRETURN 

39 1 SV ! = ( PEEK ( VARPTR ( SV$ ) + 1 ) ) +256* ( PEEK ( VARPTR ( SV$ ) +2 ) ) 

3920 I FSV ! >32767THENSV ! =SV ! -65536 

3930 DEFUSR0=S9 ! : SV=USR < > : RETURN 
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450 GOSUB 1080 

460 GOSUB320:K=UN 

470 I FK> PTTHENPR I NTS 1 28 , " F I L.E I S FULL ( " 5 PT ; " RE CORDS ) " : GOSUB 1 1 70 : GOTO 1 20 

480 PRINT 

490 PRINT3256? " (N)ORMAL OR (C)ORRECTION ENTRY ? "; 

500 FL=i : GOSUB 130: IFCFO0THENGOTO120 

510 IFIN*<>"N" ANDIN*<>" C" THENPRINTCHR* ( 8 ) ; :6OTO500ELSEVI*=IN* 

520 PR I NT : GOSUB330 

530 PRINT3320, " (S)ALE* (P)AYMENT OR (B)AD DEBT ? "; 

540 f'Lj=1 :GOSUB130sIFCFO0THEN1030 

550 I F I N*< > " S " AND I N*< > " P " AND I N*< > " B " THENPR I NTCHR* ( 8 ) ; : GOTO540ELSEVA*= I N* 

560 PRINT 

570 PRINT3448* "CUSTOMER ACCOUNT NUMBER: "; 

580 FL=-4 : GOSUB 1 30 : I FCF< >0THEN 1 030ELSE I F I N$< > " " THENVB=VAL (IN*) ELSE570 

590 PRINT3480»"* CHECKING FOR VALID ACCOUNT # *" 5 : GOSUB1420: PRINT3480» CHR* ( 30) ; : 

I FKS=0THEN I N*= " I NVAL I D ACCOUNT NUMBER " s GOSUB420 : GOTO570 
595 IFVA*="B"ANDCVD(DB*)<=0THENIN*="CUST. HAS CREDIT BALANCE" : GOSUB420: GOTO1030 
600 PRINT3512i "DATE (PRESS <ENTER> TO USE TODAY'S DATE): »; 
6 1 FL=8 : GOSUB 1 30 : I F CF < > 0THEN 1 030ELSE I F I N*= " " THENGOSUB 1 060 
620 GOSUB370 : I FCF=2THEN600ELSEVC I =DX ! 
630 PRINT35765 "CUSTOMER INVOICE NUMBER: »; 

640 FL=~6 : GOSUB 1 30 : I FCF < >0THEN 1 030ELSE I F I N* < > " " THENVD ! = VAL ( I N* ) ELSE630 
650 I FVA*= " P " ORVA*= " B " THEN860 
660 PRINT3640* "GLC: "; 
670 FL=-2 : GOSUB 1 30 : I FCF< >0THEN 1 030ELSE I FVAL (IN*) >4ANDVAL (IN*) OGTTHENV J*=CHR* < VA 

L ( I N* ) ) ELSE660 
680 PR I NTS)650 < ; : GOSUB 1 050 
690 PR I NT3670 » CHR* ( 30 ) ; " AMOUNT : " ; 
700 FL=-10:GOSUB130:GOSUB340: IFCF=0THENVE#=VAL ( IN*) : PRINTCHR* < 30) 5EL8EONCFGOTO10 

30 > 690 
710 PRINT3704» "GLC: " ; 

720 FL=-2:GOSUB130: IFCFO0THEN1030ELSEIFIN*=" " THENVK*=CHR*(0) : VF#=0: GOTO770 
730 I FVAL < IN*)>4ANDVAL( IN* ) <>GTTHENVK*==CHR* ( VAL ( IN*) )ELSE710 
740 PR I NTS7 14?;: GOSUB 1 050 
750 PRINT3734? CHR*(30) ; "AMOUNT: » ; 
760 FL=-~10: GOSUB 130 :GOSUB340s IFCF=0THENVF#=VAL ( IN*) : PRINTCHR* (30) ; ELSEONCFGOTO10 

30 ; 750 
770 PRINT376B, "GLC: " ; 

780 FL— -2: GOSUB 130: IFCFO0THEN1030ELSEIFIN*=" " THENVL*=CHR* ( 0) : VG#=0: GOTOS30 
790 IFVAL< IN*)>4ANDVAL ( IN* ) <>GTTHENVL*=CHR* ( VAL. ( IN*) )ELSE770 
800 PRINT3778» ; : GOSUB 1050 
810 PRINT3798 ? CHR*( 30) ;" AMOUNT : "; 
820 FL=- 1 : GOSUB 1 30 : GOSUB340 : 1 FCF=0THENVG#=VAL ( I N* ) : PR I NTCHR* ( 30 ) ; ELSEONCFGOTO 1 

30? 810 
830 IN*="1" :VH#=VE#+VF#+VG#:PRINT3832, "GLC: 1" ; :PRINT3842, ? 
840 GOSUB1050:PRINT3856 5 "TOTAL AMOUNT: »; 
850 PRINTUSINGL2* ; VH# : GOTO920 

860 PRINT3640? "GLC: " ; : IFVA*=" B"THENPRINT" 4" ; :VJ*=CHR*(4) : IN*="4" :GOTO880 
870 FL=-2'5 GOSUB 130: IFCFO0THEN1030ELSEIFVALC IN* ) >4ANDVAL( IN* )<=GTTHENVJ*=CHR*( VA 

L(IN*) )ELSE860 
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S80 PRINT3650* ; : GOSUB 1050 

890 IFVA$="P"THENPRINTa670 ! CHR$(30) 5 "AMOUNT OF PAYMENT: " ;ELSEPRINTa670, CHR* ( 30) 

""AMOUNT OF BAD DEBT: '• ; CVD(DB$ ) : VE#=-CVD( DB$) :LSETDF*=CHR$<5 ) :GOTO910 
900 FL---10:GOSUB130:GOSUB340: IFCF=0THENVE#==~~VAL< IN*) : PRINTCHR* (30) 5ELSEONCFGOT01 

030»890 
910 VF#=0:VG#=0:VK*=CHR*(0) :VL*=CHR*<0) 

920 PR I NT3960,CHR$< 30) "TAB (20) "RECORDING THIS TRANSACTION" ;: IFVI*="N" THEN 1020 
930 FORN=lTOUN-l 
940 K=N : GOSUB 1 090 : GOSUB 1 1 30 

950 I FABS ( CV I ( V 1 * ) ) < > VBORCVS ( V3$ ) < > VD ! 0RV7*= " A " THEN990 
960 I FSGN ( CV I ( V 1 * ) ) = 1 THENLSETV7*= " A " : GOTO980 
970 LSETV7*="B" 
980 PUT3»KR 

990 NEXT :K=UN: 60T01 020 

1000 IN*=STR*(VE#) :GOSUB1330:VE*=V*:IN*=STR*(VF#) : 6OSUB1330: VF*=V* 
1010 IN*=STR*(VG#) : GOSUB 1 330 :VG$=V$: RETURN 
1 020 GOSUB 1 000 : GOSUB 1070: GOSUB 1 1 40 
1 030 GOSUB440 : GOSUB 1 040 : GOTO460 
1040 PRINT3960," < LAST ENTRY: ACCT.tt : " ; Z 1 ; " / INV.tt- :";Z2!;"/ # OF TRANS. " ;UT ; " ) 

" ; : RETURN 
1050 PRINTMID*CGL* 5 (VAL(IN*)-1 >*5+l»5) 5 : RETURN 
1060 IN*=LEFT*(TIME$>8> : PR I NT IN*; : RETURN 
1070 GOSUB1500:6OSUB1090:GOSUB1130:6OSUB1110:U=U+1 :UT=UT+1 :UN=UN+1 :Z1=VB:Z2!=VD! 

: RETURN 
1080 OPEN" R" » 3» PT* : OPEN" R" » 2. PD*: RETURN 
1 090 KR= I NT ( ( K- 1 ) /8 ) + 1 : KD=K-8* I NT ( ( K - 1 ) /8 ) - 1 
1 1 00 F I ELD3 5 KD*3 1 AS W* i 1 ASV0* » 2ASV 1 * » 4 ASV2* » 4 ASV3* 5 4 ASV4* » 4 ASV5* > 4 ASV6* ? 1 ASV7* » 2 

A5V8*s2ASV9*, 1ASVX** 1ASVY*? 1ASVZ* : RETURN 
1110 LSETV0*=VA*:LSETV1*=MKI*(VB) : LSETV2$=MKS*< VC ! ) : LSETV3*=MKS* ( VD ! ) :LSETV4*=VE 

* : LSETV5*=VF* : LSETV6*=VG* : LSETV7*=VI * : LSETV8*=MK I $ ( K I ) : L5ETV9*=MK I $ ( KJ ) : LSE 

TVX*=VJ* : LSETVY*=VK* : LSETVZ*=VL* 
1120 PUT3»KR: RETURN 
1130 GET3,KR: RETURN 
1140 PRINTa256,CHR*(31) ; : RETURN 
1150 PRINT:PRINT"TYPE 3 TO EXIT — > "; 

1160 FL=-1 : GOSUB 130: IFCF=1THENRETURNELSEPRINTCHR*< 8) ; :GOTO1160 
1170 FORTT=1TO2500: NEXT: RETURN 
1180 OPEN" I"? 1 »PS* 

1190 L I NE I NPUT# 1 , N* : L I NE I NPUT# 1 ,. A* : L I NE I NPUT# 1 > CZ * 
1200 LINEINPUT#l»PN*:lNPUT#liFC!»GT,PD»PCiPTfPP:LINEINPUT#l,GL* 
1210 CLOSE 1 :DIMG#(GT) 
1220 OPEN" I " i 1 ? PI* 

1230 INPUTttl , TI , TN>F»U» UT^UN^EP, R0» Rl » R2, R3» R4, R5* R6, R7i CV# 
1240 F0RN=1T0TN-1: INPUTttl 1 P(N, 0) » P(N* l)iP(N»2> : NEXT: CLOSE 1 : RETURN 
1250 OPEN"0"» 1»PI* 

1260 print#15TI;tn;f;U;ut;un;ep;R0;R1;R2;R3;R4-R5;R6;R7;str*(CV#)+"D0" 

1270 F0RN=1T0TN-1 : PRINTttl » P<Ni 0) ;P(N» 1 ) ;P<N»2) : NEXT: CL0SE1 : RETURN 

1280 IFERR/2+l=54THENCLS:PRINT3465, "NO FILES ON DATA DISK" : PRINT : PRINT: CLEAR50: E 

ND 
1290 IFERR/2+l=57THEN1320 
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1300 IFERR/2+i=70THENCLS:PRINTa4655."*** INVALID PASSWORD #**" : PRINT : PRINTTABC 20) 

"PROGRAM TERMINATED" : PRINT : CLEAR50 : END 
1310 PRINT: PRINTCHR*C30) -, "UNEXPECTED ERROR CODE "; ERR/2+1 ;" IN LINE" ;ERL : GOSUB1 15 

0: GOTO! 20 
1320 TE=TE+1 : IFTE>5THENCLS : PRINT3404 , " ** DISK I/O ERROR **" : GOSUB1 150 : GOTO 1 20EL.S 

ERESUME 
1 330 N#== VAL. (IN*): W#=ABS < N# > * 1 00 : V*== " " 
1 340 X=W#/D 1 # : W#=W#-X*D1 # : V*=V*+CHR* ( X- ( N#<0 ) * 1 28 ) 
1 350 X = W#/D2# : W#=W#-X*D2# : V*=V$+CHR* « X ) 
1 360 X=W#/D3# : W#=W#-X*D3# : V*=V*+CHR* ( X ) 
1370 V*=V*+CHR*(W#) 
1380 RETURN 
1 390 W#= < ASC ( M I D* ( V* » 1 ? 1 ) ) AND 1 27 ) *D 1 #+ASC ( M I D* < V* » 2 » 1 ) ) *D2#+ASC ( M I D* ( V* » 3 •> 1 ) ) *D3 

#+ASCCMID*(V*?4, 1 ) ) 
1 400 I FASC ( LEFT* ( V* , 1 ) ) > 1 27THENW#=~W# 
1410 N#=W#/ 1 00 : RETURN 
1420 NL=0:NH=TN 

1 430 KS= I NT ( < NH-NL ) /2 ) : I FKS=0THENRETURNELSEN=KS+NL 

1 440 i FN=NHTHENNH= I NT ( ( NH-NL ) /2 ) +NL : GOTOl 430ELSE I FP ( N? ) <0THENN=N+ 1 : GOTO 1 440 
1450 J= ABS ( P i N , ) ) : GOSUB 1 480 : DD= CV I ( DD* ) 
1 460 I FDD=VBTHENRETURN 

1 470 I FDD> VBTHENNH=N : GOTO 1 430ELSENL=N : GOTO 1430 
1480 JR=INT< ( J-l )/2)+l : JD=J-2*INT( < J-l )/2>-~l : FIELD2? JD*127ASD$) 1 1ASD0*. 13ASD1*? 1 

7ASD2*, 15ASD3* 5 5ASD4$» 12A3D5*? 4ASD6* 5 4ASD7*, 8ASD8* 5 8ASD9*, 8ASDA*? 8ASDB*» 4AS 

DC*? 2ASDD*! 1ASDE*» 1ASDF** 1 ASDG*» 1 ASDH*» 2ASDI*? 2ASDJ* 
1 490 GET2 ,JR: RETURN 
1500 DI=CVI (DI*) :DJ=CVI <DJ*) : KI =DI : KJ=DJ : KK=K : IFDJ=0THENDJ==K : DI=K : KI ==0 s KJ=0 : LSET 

D I *=MK I * ( D I ) : LSETD J$=MK I * < D J ) : PUT2 ,JR: RETURN 
1510 K=D J : GOSUB 1 090 : GOSUB 1130: LSETV9*=MK I * « KK ) : GOSUB 1 1 20 : K I =D J : K J=0 s D J=KK : K=KK : L 

SETD J$=MK I * ( D J ) : PUT2 .JR: RETURN 
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10 
20 
30 
40 
50 
60 
70 
80 
90 
100 

110 
120 
130 
140 
150 
160 

170 
180 
190 
200 
210 



230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



.W»WL»WS>WD»W*»CF>FL* IN*:W*= 



PG* 



:VS*= 



:FORX= 



15) ; :F 



REM ** ARS REPORT PRINTING PROGRAM ** 

REM COPYRIGHT (C) 1979? TANDY CORP. 

REM VERSION 1.0 - 07/16/79 

CLEAR600 : DEF I NTA-Z : D I MP ( 500 , 2 ) » AN ( 8 ) , AN# ( 8 ) 

ONERRORGOTOl 820: OPEN" I " , 1 . "TRANSFER" 

L I NE I NPUT# 1 , P I * : L I NE I NPUT# 1 » PD* 

L I NE I NPUTtt 1 » PS* : L I NE I NPUTtt 1 , PT* : L I NE I NPUT# 1 

CLOSE 1 

POKE 1 6424 , 67 : POKE 1 6425 , 1 

READL0* ,L1$. 1.2$ , L3* , L4$ » L5* > TG* i TH* » T I * » T J* » TK* » TL* ? TM* » TN* i SB* 
1 TO40 : READVS : VS*==VS*+CHR* ( VS ) : NEXT : RESTORE 

X X= 1 : LF*= " " : LL*=ST R I NG$ < 80 , " - " ) 

GOSUB 1710: J= l : GOSUB 1 480 : GOSUB380 

CLS:PRINTa468» "RETURNING TO MAIN MENU" :GOSUB1790: CLOSE : CLEAR50: RUN" ARS" :END 

W=FRE ( W$ ) : I N*= " " : CF=0 : W*= I NKEY* : WD=0 : WS=WD : WL=WD : I FFL=WDTHENFL= 1 

PRINTSTRING*(ABS(FL)5CHR*(136) ) ; STRING* ( ABS ( FL ), CHR* ( 24 ) ) ; 

PRI NTCHR* (14);: FORW= 1 T025 : W*= I NKEY* : I FW*<> " " THEN1 70ELBENEXT : PR I NTCHR* ( 
0RW=1T025 :W*=INKEY*: IFW*<>" " THEN170ELSENEXT:GOTO160 

IFW*OCHR*(13)THEN190ELSEPRINTSTRING*(ABS(FL)-WL» " " ) ; 

PRINTCHR*< 15) ; :W=25: NEXT: RETURN 

IFW*O"a"THEN210 

CF=1 : PRI NTCHR* < 15) ; : RETURN 

PRINT CHR*( 14) ; : IFW*=CHR* (24 )THENPRINTSTRING*( WL> CHR* (24 ) ) 

IFW*OCHR*(8)THEN260ELSEIFWL=0THEN160ELSEPRINTCHR*(24) ; : I 
EEK ( 1 64 1 8 ) =:44THEN250 

I FPEEK ( 1 64 1 8 ) =46THENWD=0 : GOTO240ELSE I FPEEK ( 1 64 1 8 ) =430RPEEK ( 1 64 1 8 ) 

I N*=LEFT* ( I N* i LEN ( I N* ) - 1 ) 

WL=WL-1 :P0KE16418, 136:GOTO160 

I FABS ( FL ) =WLTHEN 1 60ELSE I FFL >0THEN I FW* 

IFW*=" . "ANDWD=0THENWD=.l :GOTO310 

IFW*=" » "THENPRINTW*; :WL=WL+1 : GOTO320 

IF(W*="-"ORW*=="+" )ANDWS=0ANDWL=0THENW 

I FW*< " " ORW*> " 9 " THEN 1 60 

PRINTW*; :IN*=IN$+W*:WL=WL+1 

I FABS ( FL ) = 1 THEN 1 80ELSE 1 60 

PRINTai28,CHR*(30) ;" (TYF 3 E a TO EXIT TO MAIN MENU) ";: RETURN 

DX*=STR*(DX! ) :DX*=RIGHT*(DX* 5 LEN(DX*)-1) 

IFLEN ( DX* ) <6THENF0RW=1 T06-LEN ( DX* ) : DX*= " " +DX* : NEXT 

I N*=M I D* ( DX* , 3 » 2 ) + " / " +M I D* ( DX* » 5 , 2 ) + " / " +M I D* ( DX* , 1 , 2 ) 

RETURN 

CLS:PRINTTAB(29)" REPORTS" : PRINT 

PRINT" 
PRINT OPTIONS: 



i : GOTO 140 
r FL>0THEN240E 



SEIFP 
45THENWS=0 



'ANDW*<=' 



= 1 :GOTO310 



'THEN310 



NOT( E ) N T I R E ACCOUNT 

NOT< S)TATUS AGING 

NOT( A ) G I N G STATUS 

NOT( C ) U R R E N T BALA 



400 PRINT" /( OVER 



CREDIT 



RECORDS 
CATEGORIES 
ANALYSIS 
N C E RECORD S" 
LIMIT) 
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NOT( 3 ) EXIT TO MAIN MEN U" 
410 PRINT" 

SELECT OPTION — > " ; 
420 FL=1 : GOSUB 140: IFCFO0THENRETURN 

430 0=INSTR( "ESCA" 5 IN$> : IFO=0THEN380ELSEONOGOTO4405 670! 990, 760 
440 GOSUB 1660: I FCF==2THEN380 
450 GOSUB 1060: IFCF=i THEN3S0 
460 GOSUB1240: IFCF=1THEN380 

470 LPRINTLEFT*(TIME*>8)5" - COMPLETE ACCOUNT LISTING - RUN#";R2 
480 LPRINTLF* :LPRINTSQ* 

490 GOSUB500: R2=R2+1 : IFR2>32767THENR2= 1 : GOTO380ELSE380 
500 ONRSGOSUB1270 5 1310 
510 RT#=0 
520 FORN=lTOTN-l 

530 GOSUB1670: IFCF=2THENONRSGOSUB12705 1310 
540 J= P ( N > AM ) : I FSGN ( J ) ==-- 1 THEN6 1 0ELSEGOSUB 1 480 : GOSUB 1500 
550 IFO=1THEN590 
560 IFO=2THEN580 

570 I FCVD ( DB* > <= CVS ( DC* ) THEN6 1 0ELSE590 
580 ST=ASC(DF*> : IFST<S1ORST>S2THEN610 
590 GOSUB1510:ONRSGOSUB1300 ? 1350 : RT#=RT#+CB# 

600 EN*=INKEY*: IFEN$=" 3" THENLPRINT" RUN TERMINATED" :N=TN-1 :NEXT:RETURN 
610 NEXTsLPRINTLF* 

620 LPRINT" RECEIVABLES FOR THESE RECORDS: » ; USINGL2* ; RT# 
630 I F CV#==0THEN660 
640 RP!==RT#/CV#*100 
650 LPRINT"THIS IS " ;USINGL5* 5 RP ! ; :LPRINT" 7. OF "; USIN6L2* ; CV# ;: LPRINT" (TOTAL 

RECEIVABLES). " 
660 LPRINTLL*:LPRINT"END OF REPORT" :LPRINTCHR* ( 12) : RETURN 
670 GOSUB 1 660 : I FCF=2THEN380 
680 GOSUB 1060: IFCF=1THEN380 
690 GOSUB 1240:1 FCF = 1 THEN380 
700 GOSUB 1110:1 F CF= 1 THEN380 

710 LPRINTLEFT*(TIME*,8) ;" - LISTING BY AGING STATUS - RUN#";R3 
720 LPRINTLF* 

730 ONS1+16OSUB1400» 14105 14205 1430? 14405 14505 1460? 1470 
740 LPR I NTSV* : I FS2=S 1 THEN760ELSELPR I NT " TO " 

750 0NS2+1 GOSUB 1400 5 14105 1420 5 1430? 14405 14505 14605 1470: LPR I NTSV* 
760 LPRINTLF*:LPRINTSQ$ 

770 GOSUB500:R3=R3+1 : IFR3>32767THENR3=1 : GOTO380ELSE380 
780 FORX=0TO8 : AN < X ) =0 : AN# < X ) =0 : NEXT : TA=0 : TA#=0 : TP ! =0 
790 CLS:PRINTa4685 "SCANNING ACCOUNT RECORDS" :FQRN=1T0TN-1 
800 J=P<N»0) : I FSGN < J)=-1THEN830 
8 1 GOSUB 1 480 : GOSUB 1500: ST=ASC < DF* ) 
820 AN# ( ST ) =AN# ( ST ) +CVD ( DB* ) : AN < ST ) =AN ( ST ) + 1 
830 NEXT 

840 CLS: PRINT" ACCOUNTS RECEIVABLE ANALYSIS BY AGING STATUS" 
850 PRINT 
860 PRINT-AGING CATEGORY" 5 TAB(31 ) "ACCTS" ; TAB( 41 ) "AMOUNT" ; TAB(52) " V. OF A/R" 
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870 PRINT" " -TABC31 ) " " STAB(41 5 " " ; TAB (52) " " 

880 FORX=0TO7 : TA=TA+AN C X ) : TA#=TA#+AN# ( X ) : NEXT : FORX=0TO7 

890 PC ! =AN# ( X ) /TA#* 1 00 : TP ! =TP ! +PC I 

900 ONX + 1GOSUB1400-. 1410- 1420s 1430? 1440? 14505 1460) 1470 

910 PRINTSV*;TAB(30)USINGL1*;AN(X> ; : PRINTTAB ( 37 ) USINGL2* ; AN# ( X ) 5 : PRINTTAB ( 50 ) USI 

NGL5*;PCi ; SPRINT" "/." 

920 NEXT : PR I NTTAB (31)" — — " ; TAB (41) " " 5 TAB ( 52 ) " " 

930 PR I NTTAB < 20 ) " TOTALS " 5 TAB ( 30 ) US I NGL 1 * 5 TA ; : PR I NTTAB ( 37 ) US I NGL2* ; TA# ; : PR I NTTAB ( 

50 ) US I N6L5* I TP I ; : PR I NT " 7. " 
940 PRINT3970? "DO YOU WANT A PRINTOUT ? (Y/N) "? 
950 FL=1 :GOSUB140: IFCFO0THEN380ELSEIFIN*<>" Y" ANDIN*<>"N"THENPRINTCHR*(8) ; : GO I 09 

50 
960 IFIN*="N"THEN380ELSEIFPEE:K(14312)>127THE:NGOSUB1650:PRINTa970, "P R I N T h R 

N T R E A D Y ! !";: GOSUB 1700: GOSUB 1650: GOTO940 
970 GOSUB 1 650 : PR I NT397B , LEFT* ( T I ME* , 8 ) ; " - REPORT # " ; R5 ; 
980 GOSUB1890: R5=R5+1 : IFR5>32767THENR5=1 : GOTO380ELSE380 
990 GOSUB 1 660 : I F CF=2THEN380 
1 000 GOSUB 1 060 : I F CF= 1 THEN380 
1010 GOSUB 1 240 : I FCF = 1 THEN380 
1020 LPRINTLEFT*(TIME*»8) ;" - RECORDS WITH BALANCE OVER THE CREDIT LIMIT - RUN#" 

■R4 
1030 LPRINTLF* 
1040 L PRINTS©* 

1050 GOSUB500:R4=R4+1 : IFR4>32767THENR4=1 : GOTO380ELSE380 
1060 CLS: PRINT" PRINT BY : 

(A)CCOUNT NUMBER 

( N ) AME 

( Z ) I P CODE 

ENTER SELECTION --> " ; 
1070 FL=1 :GOSUB140: IFCFO0THENRETURN 

1 080 I F I N*< > " A " AND I N*< > " N " AND I N* < > " Z " THENPR I NTCHR* ( 8 ) ; : GOTO 1 070 
1 090 I F I N*== " A " THENAM-0 : SQ*= " ( ACCT# SEQUENCE ) " ELSE I F I N*= " N " THENAM= 1 : SQ*= " ( NAME SE 

QUENCE ) " ELSEAM=2 : SQ*= "(ZIP CODE SEQUENCE ) " 
1100 PR I NT: RETURN 
1110 CLS: PRINTai92' 5 "SELECT 2 NUMBERS FROM THE TABLE BELOW. THE ARS WILL PRINT AL 

L 

RECORDS WITH STATUS BETWEEN AND INCLUDING THE 2 NUMBERS. TO 

SELECT ONLY 1 STATUS CODE- TYPE THE SAME NUMBER TWI Cb. " : GOSUB1570 

1120 PRINT3448, "FIRST NUMBER : "; 

1 130 FL=~-1 : GOSUB 1413: IFCFO0THENRETURN 

1 140 S1=VAL( IN*) : IF8K0ORS1 >7THENPRINTCHR* ( 8 ) 5 : GOTO 1 130 

1150 ST=S 1 : GOSUB 1630 

1160 PRINT35125 "SECOND NUMBER: »; 

1 170 FL=-1 :GOSUB140: IFCFO0THENRETURN 

1 1 80 S2=VAL ( I N* ) : I FS2<0ORS2>7THENPR I NTCHR* ( 8 ) ; : GOTO 1 1 70 

1 1 90 ST=S2 : GOSUB 1 630 
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1200 PRINT3576, "OK TO PRINT (Y/N) ? " 5 

1210 FL=l:GOSUB140:IFCF<>0THENRETURNELSEIFIN*<>"Y"ANDIN$<>"N"THENPRINTCHR$(8) ; :G 

OTO1210 
1220 IFIN*="N"THEN1110 

1230 IFS1>S2THENS3=S1:S1=S2:S2=S3:RETURNELSERETURN 
1240 PRINT" (A)BBREVIATED OR (F)ULL RECORDS ? (A/F) " ; 
1250 FL=1 :GOSUB140: IFCFO0THENRETURN 
1260 IFIN*O"A"ANDIN$<>"F"THENPRINTCHR*<S);:GOTO1250ELSEIFIN*="A"THENRS=l:RETURN 

ELSERS=2: RETURN 
1270 LPRINTSTRIN6*(80,61 ) 
1280 LPRINT"ACCT#" ;TAB(6)"LAST NAME" ;TAB<21 )" CRT LMT" ;TAB(30) " PRV BAL" ; TAB(42) " T 

TL SLS " 5 TAB ( 54 ) " PMT REC " ; TAB ( 63 ) " CUR BAL STATUS " 
1290 LPRINTSTRING*(80,61 ) :CF=0:RETURN 
1300 LPRJNTUSINGL1*; ID? : LPRINTTAB( 6 )L* ; TAB( 19 )USIN6L4* ; CL ! ; : LPRINTTAB (26)USINGL2 

*;PB#; : LPRINTTAB* 38 )USINGL2*;T5#; : LPRINTTAB (50) US INGL2* 5 PR#; : LPRINTTAB (62) U 

SINGL2*;CB#5 :LPRINT" " 5 USINGL0* ; ST : RETURN 
1310 LPRINTSTRING*<80,61 ) 
1320 LPRINT"ACCT#";TAB(10)"NAME OF ACCOUNT" ;TAB(33) " ADDRESS" ; TAB ( 5 1 ) " CITY, STATE 

ZIP" ."LPRINTSTRING*<80, ". " ) 
1330 LPRINT" PHONE" ;TAB( 15) "CRT LMT" ' TAB (29) " 7.RO" 5 TAB* 39) - FC?" ; TAB( 49 ) " DT LAST SA 

LE" 5 TAB* 63)" DT LAST PYMT" 
1340 LPRINT" 

PRV BAL";TAB(18)"TTL SLE" ; TAB < 32 ) " PMT RCV" 5 TAB( 45 ) " CUR BAL" ; TAB (57 ) " 
STATUS" !LPRINTSTRING*(80»61) :LPRINT" " :CF=0: RETURN 
1350 IFRIGHT**F*, 1 ) OCHR* ( 0)THEN1370ELSEIFASC( F*)=0THENF*=CHR* (32) :GOTO1370 
1360 F*=LEFT**F*, INSTR(F$, CHR*< 0) )-l) 
1370 LPRINTUSINGL1$;ID;:LPRINTTAB(8)F$;TAB(19)L$;TAB(33)SA*;TAB(51)CS*;TAB(63)" 

" " 7* 
1380 LPRINTSTRING**80, " . " ) : LPRINTPH*; TAB* 15 )USINGL4* ; CL ! ; : LPRINTTAB*2S)USINGL1*; 

RO;:LPRINTTAB(40)FC*;TAB*51)DS*;TAB*63)" " ;dp* 
1390 I PRINTUBINGL2$;PB#; :LPRINTTAB(14)USINGL2*;TS#;:LPRINTTAB(28)USIN6L2*;PR#;:L 

PRINTTAB(41)USINGL2*;CB#; :ONST+1GOSUB1400, 1410, 1420, 1430, 1440, 1450, 1460, 147 

: LPR I NTTAB ( 56 ) SV* : LPR I NTLL* : LPR I NT " " : RETURN 
1400 SV*="0 - "+TG$: RETURN 
1410 SV*="1 - "+TH*: RETURN 
1420 SV*="2 - "+TI*: RETURN 
1430 SV*="3 - "+TJ*:RETURN 
1440 SV*="4 - "+TK*: RETURN 
1450 SV*="5 - "+TL$: RETURN 
1460 SV*="6 - "+TM*: RETURN 
1470 SV*="7 - "+TN*: RETURN 

1480 JR=INT< * J-l )/2)+l :JD=J~2*INT* <J-1 )/2)-l 
1490 FIELD2, JD*127ASD*, 11ASD0*, 13ASD1*, 17ASD2*, 15ASD3*, 5ASD4*, 12ASD5*, 4ASD6*, 4AS 

D7*,8ASD8*,8ASD9*,8ASDA*,8ASDB*,4ASDC*,2ASDD*, 1ASDE*, 1ASDF*, 1ASDG*, 1ASDH*,Z 

ASD I * , 2ASD J* : RETURN 
1500 GET2,JR: RETURN 

1510 F*=D0* : L*=D1 * : SA*=D2* : CS*=D3* : Z*=D4* : PH*=D5* : DS ! =CVS ( D6* ) 
1520 DPI=CVS(D7$) :PB#=CVD*D8*) :TS#=CVD(D9*) : PR#=CVD *DA* ) 
1530 CB#=CVD ( DB* ) : CL ! =CVS * DC* ) : I D=CVI ( DD* ) : RO*=DE* 
1 540 ST*=DF* : FC*=DG* : TC*=DH* : D I = CV I < D I $ ) : D J=CV I ( DJ* ) 
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1550 RQ=ASC<RQ*> :ST=ASC(ST*) : TC=ASC< TC$ ) 

1560 DX!=DS! :GOSUB340:DS*=IN*:DX ! =DP! : GOSUB340."DP$= I N*: RETURN 

1570 PRINT3704? ; 

1580 PRINTTAB(3)"0 - " ; TG$; TAB< 32) "4 - " ; TK* 

1590 PRINTTABC3)"! - " ; TH*; TAB(32) "5 - ";TL* 

1600 PRINTTAB(3)"2 - " ; TI*5 TAB (32) " 6 - ";TM$ 

1610 PRINTTAB<3)"3 - " ; TJ*; TAB( 32) " 7 - " ; TN* 

1620 RETURN 

1630 PRINTaVALCMID*<SS*?ST*3+l? 3) ) ? "->" ; : RETURN 

1640 PRINTS256? CHR*C31 ) I : PRINT3256* % : RETURN 

1650 PRINTCHR*(29) ;CHR*<30) 5 s RETURN 

1660 IFPEEK<14312X128THENP0KE16425» 1 : RETURNELSECLS: PRINT3468? "PRINTER NOT READY 

" :GOSUBl 700 :CF=2: RETURN 
1670 IFPEEK(16425)<54THENRETURNELSECF=2:LPRINTCHR*<12) : RETURN 
1680 PRINT:PRINT"TYPE 3 TO EXIT — > "; 

1690 FL=-1 :GOSUB140: IFCF=1THENRETURNELSEPRINTCHR* (8) ; :GOTO1690 
1700 FORTT=lTO2500s NEXT: RETURN 
1710 OPEN" I"! 1?PS* 

1 720 L I NE I NPUTtt 1 1 N* : L I NE I NPUT# 1 ? A* : L I NE I NPUT# 1 , CI * 
1730 LINEINPUT#1?PN*:INPUT#1?FC! ? GT? PD? PC? PT? PP :LINEINPUT#1 ? GL* 
1740 CLOSE1 :DIMG#(GT) 
1750 OPEN" I" ? 1?PI* 

1760 INPUT#1?TI?TN?F?U?UT?UN?EP? R0? Rl? R2?R3?R4? R5?R6? R7? CV# 
1770 F0RN=1T0TN-1 : INPUT#1 ? P<N? 0) ? PC N? 1 )»P(Ni2) : NEXT: CLOSE 1 
1780 OPEN" R", 2? PD*: RETURN 
1790 OPEN"0"? 1, PI* 

1 800 PR I NT# 1 ? T I ; TN ; F ; U ; UT ; UN ; E P ; R0 ; R 1 ; R2 ; R3 ; R4 ; R5 ; R6 ; R7 ; ST R* ( CV# ) + " D0 " 
1810 FORN=1TOTN-1:PRINT#1»P<N»0> ;P(N?1);P(N?2) : NEXT: CLOSE 1 : RETURN 
1820 IFERR/2+l=54THENCLS:PRINT3465? "NO FILES ON DATA DISK" : PRINT : PRINT : CLEAR50: E 

ND 
1830 IFERR/2+l=57THEN1860 
1840 IFERR/2+l=70THENCLS:PRINT3465? "*** INVALID PASSWORD ***" : PRINT: PRINTTAB(20) 

"PROGRAM TERMINATED" : PRINT: CLEAR50:END 
1850 PRINT:PRINTCHR$(30) ; "UNEXPECTED ERROR CODE " ;ERR/2+l ; " IN LINE" ;ERL :G0SUB168 

0: GOTO 130 
I860 TE=TE+i :IFTE>5THENCLS:PRINT3404? "** DISK I/O ERROR **": 60SUB 1680: GOTO 130ELS 

E RESUME 
1870 DATA ##?####,#######,##+,#####,#######,####.##, NOTHING DUE / CREDIT? CURRENT 
BALANCE DUE? 30-60 DAYS OVERDUE? 60-90 DAYS OVERDUE? PAST 90 DAYS OVERDUE? CRE 

DIT SUSPENDED? LEGAL ACTION PENDING? INACTIVE ACCOUNT? 70476883289673379786192 

5 
1880 DATA33?0?60?6?64?78?62? 127? 145? 48? 4? 14? 32? 24? 7? 62? 32? 145? 56? 2? 14? 32? 121? 205 

?59?0?35? 16? 232? 62? 13? 205? 59? 0? 124? 254? 64? 32? 220? 201 
1890 LPRINTLL*:LPRINTLF$:LPRINTLF* 

1900 VS!=(PEEK(VARPTR<VS*)+1) ) +256* < PEEK( VARPTR( VS* )+2) ) 
1910 I FVS ! >32767THENVS ! =VS ! -65536 
1920 DEFUSR0=VS! :VS=USR(0) :LPRINTLF* :LPRINTLL*:LPRINTCHR*< 12) : RETURN 
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10 REM *** ARS END OF PERIOD PROCESSING *** 

20 REM COPYRIGHT (C) 1979, TANDY CORP. 

30 REM VERSION 1.0 - 07/16/79 

40 CLEAR600 : DEF I NTA-Z : DI MP ( 500, 2 > , W, IN*, CF, WD, W*, WS, WL, FL : W*= " " : N#=0 : W#=0 : V*=" " : 

X=0 : D 1 #= 1 67772 1 6 : D2#=65536 : D3#=256 
50 0NERR0RG0T021 90 : OPEN" I " , 1 , " TRANSFER" 
60 L I NE I NPUT# 1 , P I * : L I NE I NPUT# 1 , PD* 

70 LINEINPUTttl , PS$:LINEINPUT#1 , PT* sLINEINPUTttl , PG* 
80 CLOSE 1 

90 POKE 1 6424 , 67 : POKE 1 6425 , 1 

1 00 READLB* , L 1 * , L2* , L3* , TG* , TH* , T I $ , T J$ , TK* , TL* , TM* , TN* , OS* : RESTORE 
110 XX=1 :LE*=" 

" :LF$=" " :LL*=STRING*<80, "-" ) 
1 20 GO3UB20 70 : J= 1 : GOSUB 1350 s GOSUB2490 : GOSUB440 
130 IFEP=5THENEP=0 

140 CLS:PRINTa469, "RETURNING TO MAIN MENU" s GOSUB2160: CLOSE : CLEAR50: RUN" ARS" SEND 
150 W=FRE ( W* ) : I N*= " " : CF=0 : W*= I NKEY* : WD=0 : WS=WD : WL=WD : I FFL=WDTHENFL= 1 
160 PRINTSTRING*(ABS(FL),CHR*(136) ) 'STRING* ( ABS<FL ) , CHR* (24 ) ) ; 
170 PRINTCHR$( 14) ; :F0RW==1T025 sW*=INKEY*s IFW*<>" " THEN180ELSENEXT: PRINTCHR* ( 15 ) ; :F 

ORW= 1 T02 c . : W*= I NKEY* : I FW*< > " " THEN 1 80ELSENE X T : GOTO 1 70 
180 IFW*OCHR*( 13)THEN200ELSEPRINTSTRING*(ABS(FL)~WL, " " ) ; 
190 PRINTCHR*(15); : W=25 : NEXT : RETURN 
200 I FW* < > " a " THEN220 
210 CF=1 : PRINTCHR* (15) ; : RETURN 

220 PRINTCHR*(14) 5 : IFW*=CHR*(24 )THENPRINTSTRIN6* ( WL, CHR* (24) ) 5 :GOTO150 
230 IFW*OCHR*(8)THEN270ELSEIFWL=0THEN170ELSEPRINTCHR*(24) ; : IFFL>0THEN250ELSEIFP 

EEK(16418)=44THEN260 
240 IFPEEK(16418)=46THENWD=0:GOTO250ELSEIFPEEK(16418)=43ORPEEK(16418)=45THENWS=0 

250 IN*=LEFT*(IN*,LEN(IN*)-1) 
260 WL=WL~l:P0KE16418, 136 s GOTO 170 

>70 I FABS ( FL ) =WLTHEN1 70ELSE IFFL>0THENI FW*>= " " ANDW*<=" z " THEN320 

L'80 IFW*=" . "ANDWD=0THENWD=1 5GOTO320 
290 IFW*=" , "THENPRINTW*; :WL=WL+1 5GOTO330 
300 IF(W*="-"ORW*="+" )ANDWS=0ANDWL=0THENWS=1 SGOTO320 
310 I FW*< "0" ORW*> "9" THEN1 70 
320 PRINTW*; : IN$=IN*+W*s WL=WL+1 
330 I FABS ( FL ) = 1 THEN 1 90EL.SE 1 70 
340 IFIN*=""THENDX!=0: RETURN 

350 IFLEN(IN*)O80RMID*(IN*,3, 1 ) <> " /"ORMID* ( IN*, 6, 1 )<>"/"THEN390 
360 DX*=MID*(IN*,7,2)+MID*(IN*, 1 , 2) +MID*< IN*, 4, 2) 
370 FORW=lTO6:IFMID*(DX*,W,l)<"0"ORMID*(DX*,W,l)>"9"THENW=6sNEXTsGOTO390ELSENEXT 

380 DX!=VAL(DX*)s RETURN 

390 FORW9=lTf)4:PRINTa960,CHR*(30);:FORW=lTO155:PRINTa975," INVALID FORMAT !"; 

!NEXTWsFORW=lTO15:PRINT3975,CHR*(30);sNEXTWsNEXTW9:CF=2:RETURN 
400 DX*=STR*(DX! ) : DX*=RIGHT*(DX*, LEN(DX*)~1 ) 
410 IFLEN(DX*K6THENF0RW=1T06-LEN(DX*) : DX*="0" +DX*sNEXT 
420 IN*=MID*(DX*,3,2)+"/"+MID*(DX*,5,2)+"/"+MID*(DX*, 1,2) 

430 RETURN 

440 CLS:PRINTTAB(15)"END OF PERIOD PROCESSING" : PRINT 

450 PR I NT "OPT IONS s 
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ERRC P } R I N T ALL STATEMENTS 

Eh'RC U)PDATE ALL ACCOUNT RECORDS 

ERRC TJRANSACTION RECORD PRINTOUT" 

460 PR1NT"ERR( C ) L E A R BYSTEH FOR NEW HO NTH 
ERRC S) INGLE STATEMENT PRINTOUT 
ERRC A > I I G N STATEHENTS ON PRINTER 
ERRC a ) EXIT TO H A I N M E N U" 

470 PR I NT : GOSUB 1 870 

480 PRINT3768f 

"NOTE: THE LAST THREE OPTIONS MAY BE USED AT ANY TIME. THE FIRST FOUR 

OPTIONS MUST BE SELECTED IN SEQUENCE. THE ARROW ==> POINTS TO THE 
NEXT REQUIRED STEP. " 

490 PRINT3960* "SELECT OPTION --> "; 

500 FL=i : GOSUB 150: IFCFOBTHENRETURNELSEO=INSTRC "PVUTCSA"s IN*) 

510 IFO=0THEN490 

520 ONOGOTO530»680» 7105 920? 950» 1 000 » 2250 

530 1FEP>2THEN440ELSEPOKE16424» 52: POKE 1 6425 » 1 :GOSUB2020: IFCF=2THEN440ELBEOPEN" R" 
»3iPT$ 

540 CLS SPRINT "PR I NT BY s 

(A)CCOUNT NUMBER 

CN)AME 

CZ)IP -CODE 

ENTER SELECTION — > "5 
550 FL= I : GOSUB 1 50 : I F CF < > 0THENCLOSE3 : GOTO440ELSE I F I N* < > " A " AND I N*< > " N " AND I N* < >'" Z " T 

HENPRINTCHR*C8) I :GOTO550 
5A0 FA#=0D0: IFIN*=" A" THENAM=0 ELSEIFIN*="N" THENAM=1 ELSEAM=2 
570 GOSUB2570 

580 FORN= 1 TOTN- 1 : J=P C N » AM ) : I FS6N C J > =- 1 THEN670ELSE6OSUB 1 350 : GOSUB 1 430 
590 PR I NT3576, "ACCOUNT : " ; CVI CDD* ) I : IFC CVD(DB*)=0ANDASC( DH* >=0>ORASCCDF* )=7THEN 

670EL5EGOSUB 1 440 : AB#=PB# : GOSUB 1 660 
600 ONST+1GOSUB26405 2650) 2660» 2670s 2680 » 26905 2700 » 2710 
610 GOSUB 1500 
620 IFTCO0THENGOSUB2580 
630 AB#=AB#+FC#: IFFC#>0THENGOSUB1630 
640 I FSGN C CB# ) = 1 THENGOSUB 1 6 1 0ELSEGOSUB 1 620 
650 GOSUB 1600 
660 IFMR#=0THENLPRINTTABC50) "**********" : LPRINTTABC5 ) MS* sLPRINTLE*:ELBEIFMR#>0TH 

ENLPRINTTABC50)USINGL2*;MR#:LPRINTTABC5)MS*:LPRINTLE*:ELSELPRINTTABC50)"**C 

REDIT**" sLPRINTTABC5)MS*:LPRINTLE* 
665 POKE 16425 5 1 

670 NEXT:CL0SE3:P0KE16424?67:P0KE164255 1 :EP=1 
680 IFEPOlTHEN440ELSECLS:PRINTa4485 "DO YOU APPROVE OF THE THE STATEMENTS AS PRI 

NTED ? CY/N) " ; 
690 FL=1 :GOSUB150: IFCFO0THEN440ELSEIFIN*<>" Y" ANDIN*<>"N" THEN680 
700 IFIN*="Y"THENEP=2:GOTO440ELSEEP=0:GOTO440 
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=:========================================= ============================ 

710 IFEPO2THEN440ELSEAM=0 

720 CLS5PRINT3466, "UPDATING ALL ACCOUNT RECORDS" :FA#=0D0 

730 FORN=lTOTN-i s J=PCN» AM) : I FSGN < J >=-l THEN760ELSEGOSUB 1350: GOSUB 1430 

740 I F < CVD « DB* ) =0ANDASC < DH$ > =0 ) ORASC ( DF* ) =7THEN760ELSEGOSUB 1 440 

750 GOSUB 1660 

760 NEXT : 6OSUB2720 : EP=3 : GOTO440 

770 IN*=STR*(VE#) :GOSUB2390s VE$=V* s IN*=STR* < VF# ) :GOSUB2390s VF$=V* 

780 IN*=STR*(VG#) : GOSUB2390: VG$=V* s RETURN 

790 OPEN" R" » 3 ? PT*: RETURN 

800 GOSUB790 : GOSUB2020 : IFCFO0THEMCLOSE3 : GOTO440 

810 LPRINTLEFT*(TIME*»S)!"s COMPLETE TRANSACTION FILE (FINAL) - REPORT*" ; R6 sLPRI 

NTLF$ 
820 GOSUB 1 300 s L*= " " 

830 FORK= 1 TOUN- 1 : GOSUB 1 880 : GOSUB 1 920 : GOSUB 1 930 
840 GOSUB880 

850 GOSUB2030: IFCF=2THENCF=0: GOSUB 1300 
860 GOSUB 1330 
870 NEXT:CL0SE3sLPRINTLF*sLPRINT"END OF LISTING" :LPRINTCHR*( 12) : EP=4 : R6=R6+1 : IFR 

6>32767THENR6=1 :GOT01 130ELSE1 130 
8'oW IFVA$="S"THFNVA*="SALE" :A1=1 ELSEIFVA*=" P" THENVAS=" PMNT" :A1=2 ELSEIFVA*=" F" T 

HENVA$= " F/ C " : A 1 =3 : VB=0 : VD i =0 : RM*= " GL F I LE " : GOTO900ELSE I FVA*= " B" THENVA$= " B/D 

" :~A1=? ELSEVA$="B/D" : Al=2: RM*="GL FILE" : GOTO900 
890 IFVI*="N"THENRM*=" NORMAL." ELSEIFVI*=" C"THENRM*=" CORRECT ION" ELSEIFVI*=" A" THENR 

M$= " SUPERSEDED " ELSE I FV I *="B"THENRM$=" CORRECT I ON PENDING" 
900 I FSGN ( VB ) = 1 THENRM*=RM$+ " -UNPOSTED" ELSERM*=RM*+ » -POSTED " 
910 RETURN 

920 IFEPO3ANDEPO4THEN440 
930 CLS:PRINTS464 3 "PRINTING FINAL TRANSACTION FILL" 

940 GOTOB00 

950 IFEPO4THEN440ELSECLS:PRINTa465, "CLEARING SYSTEM FOR NEW MONTH" ! sKILLPT* 

960 OPEN"R" » !•> PG$ 

970 FORG= 1 TOST : GOSUB 1 950 : GOSUB 1 990 : GOSUB2000 : GC#=0 : GOSUB 1 970 

980 NEXT:CLOSE1:FORN=1TOTN-1:J=P(N 5 0):IFSGN(J)=-1THEN990ELSEGOSUB1350:GOSUB1430: 

LSETDI*=MKI$(0) :LSETDJ*=MKI$(0) : GOSUB 1420 
990 NEXT!EP=5sU=0sUT=0:UN=l :GOTO440 
1000 POKE16424,52:POKE16425»l:GOSUB2020:IFCF=2THEN440ELSEOPEN"R"»3 5 PT*:AM=0 

1010 CLS:PRINTa460> "ENTER ACCOUNT #: "; 

10">0 FL=-4:GOSUB150: IFCFO0THENCLOSE3 : 6OTO440ELSEL$=IN* 

1030 GOSUB1760:IFKS=0THENGOSUB2010:PRINTTAB<22)"NO SUCH ACCOUNT" :GOSUB2060: CLOSE 

3:6OTO440 
1 035 I F < CVD ( DB$ ) =0ANDASC ( DH* ) =0 ) ORASC < DF$ ) =7THEN 1 1 20 
1040 AB#=PB#: GOSUB 1660 
1050 ONST+1GOSUB2640 5 26505 2660> 2670* 26805 2690? 2700) 2710 

1060 GOSUB 1500 

1070 IFTCO0THENGOSUB2580 

1080 AB#=AB#+FC#: IFFC#>0THENGOSUB1630 

1 090 I FSGN ( CB# ) = 1 THENGOSUB1 6 1 0ELSEGOSUB 1 620 

1110 IFMR#->0THENLPRINTTAB<50)USINGL2*;MR#:LPRINTTAB(5)MS$sLPRINTLE*ELSEIFMR#=0TH 
ENLPRINTTAB(50) "**********" sLPRINTTAB<5)MS*!LPRINTLE*ELSELPRINTTAB(50)"*«CR 
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EDIT**" :LPRINTTAB(5)MS$:LPRINTLE* 
1 1 20 CL0SE3 1 POKE 1 6424 » 67 : POKE 1 6425 . 1 : 6OTO440 
1130 OPEN-R", i,PG$:GOSUB2020t IFCFO0THEN440 

1140 LPRINTLEFT*(TIME*,B) i" - GENERAL LEDGER FINAL RECAP "I 
1150 L PR I NT" (TOTALS THIS MONTH TO DATE) - REPORT #";R7 
1160 LPRINTLL*:LPRINTLF* 
1 1 70 LPRI NTTAB ( 20 ) " DEBI T ( + ) " ? TAB < 50 ) " CREDI T < - ) " 

1180 LPRINTTAB(20)" " ;TAB(50)" " 

1 1 90 G= 1 : GOSUB 1 950 § GOSUB 1 990 : A R= CV I ( G 1 $ ) 

1210 LPRINTLF$ : F0RG=3T0GT : GOSUB 1950: GOSUB 1990 ; GOSUB2000 

1220 AN$=MID$(6L$, (G-l )*5+ls5> 

1230 LPRINT"GLCs" ;G; : IFSGN(GC#)=-1THEN1260 

1240 LPRINTTAB(10)AR;"/ A/R" 5 TAB (25 )USINGL2$ ;GC# 5 

1250 LPRINTTAB(40)GA; "/ " ; AN*,"TAB(55 )USINGL2* ;-GC#: GOTO 1280 

1260 LPRINTTAB(10)GA;"/ " ;AN*;TAB(25)USINGL2*;-GC#; 

1270 LPRINTTAB(40)ARl"/ A/R" ! TAB (55 )USINGL2* ;GC# 

1280- NEXT:CL0SEl:R7=R7+l: IFR7>32767THENR7=1 

1290 LPRINTLF*sLPRINT"END OF REPORT" :LPRINTLL$ :LPRINTCHR*( 12) :GOTO440 

1300 LPRINTSTRING$(80,61) 

1310 LPRINT"TYPE" ; TAB(9) " ACCT#" ; TAB (32) "DATE" ;TAB(43) " INV#" I TAB ( 60) " REMARKS" 

1320 LPRINTTAB(S) "AMOUNT (GLC) " 5 TAB (26 ) "AMOUNT (GLC) "; TAB ( 44) "AMOUNT (GLC)";TAB( 

63) "TOTAL (GLC)" :LPRINTSTRING*(80 5 61 ) : RETURN 
1 330 LPRI NTVA* I TAB ( 9 ) ABS ( VB ) " TAB ( 32 ) VC* 5 TAB ( 42 ) VD ! ; TAB ( 60 ) RM$ 
1340 LPRINTTAB(4)USINGL2*;VE#; sLPRINT" ( " ; V J I " )" ;TAB(22)USINGL2*; VF#; sLPRINT" (" ;V 

K?" ) " ;TAB(40)USINGL2*;VG#; :LPRINT" (" ;VL;" ) " ; TAB( 58)USINGL2$ ; VH#; sLPRINT" (" ; 

Al ; " ) " :LPRINTLL$:RETURN 
1350 JR=INT( ( J-l )/2)+l : JD=J-2*INT< ( J-l >/2>-l 
1360 FIELD2. JD*127ASD*5 11ASD0*, 13ASD1*> 17ASD2*» 15ASD3** 5ASD4*» 12ASD5*, 4ASD6*, 4AS 

D7*)8ASD8*»8ASD9*5 8ASDA*j8ASDB*5 4ASDC*»2ASDD* 1 1ASDE* 5 1ASDF*, 1ASDG*? 1ASDH$ 5 2 

ASDI *i 2ASDJ* : RETURN 
1 370 RQ*=CHR* ( RQ ) : ST*=CHR* ( ST ) : TC*=CHR$ ( TC ) : LSETD0*=F* : LSETD 1 $=L* : LSETD2*=SA* : LS 

ETD3$=CS*:LSETD4*=Z$ 
1 380 LSETD5*=PH* : LSETD6*=MKS* ( DS ! ) : LSETD7$=MKS* ( DP ! ) : LSETDS*=MKD$ ( PB# ) 
1 390 LSETD9*=MKD$ ( TS# ) : LSETDA*=MKD$ ( PR# ) : LSETDB*=MKD* ( CB# ) 
1400 LSETDC*=MKS$(CL! ) : LSETDD*=MKI*( ID ) :LSETDE$=RO$ 

1410 LSETDF$=ST*:LSETDG$=FC*:LSETDH$=TC$:LSETDI$=MKI*(DI) :LSETDJ*=MKI*(DJ) 
1420 PUT2»JR: RETURN 
1430 GET2»JR: RETURN 

i 440 F$=D0* : L*=D1 * : SA*=D2* : CS$=D3$ : Z*=D4* : PH*=D5* : DS ! =CVS ( D6* ) 
1 450 DP ! =CVS ( D7$ ) : PB#=CVD ( D8$ ) : TS#=CVD ( D9* ) : PR#=CVD ( DA* ) 
1460 CB#=CVD(DB*) : CL ! =CVS(DC* ) :ID=CVI(DD*> : RQ*=DE* 
1470 5T*=DF$:FC$=DG*:TC$=DH$sDI=CVI (DI$) :DJ=CVI ( D J* ) 
1480 RQ=ASC(RQ*> :ST=ASC(ST$) :TC=ASC(TC$) 
1490 RETURN 
1500 IFPP=1THENLPRINTTAB(21 )N*:LPRINTTAB(21 ) A* : LPRINTTAB(21 ) CZ* : LPRINTTAB(21 ) PN* 

: LF=2 : GOSUB 1 590ELSELF=6 : GOSUB 1 590 
1510 LPRINTTAB(45)USINGL0*;ID; : LPRINTTABC54 )EF$ 

1520 IFRIGHT$(F$ 5 1 ) <>CHR*(0)THEN1540ELSEIFASC(F*)=0THENF*=CHR* (32) :GOTO1540 
1530 F*=LEFT*(F* 5 INSTR(F* 5 CHR$ (0) )-l) 
1540 LPRINT" ":LPRINT" " : IFLEFT* (F* ? 1 )=" " THENLPRINTTAB( 15 )L* ;TAB(54)ED*:G0T0156 
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1550 LPRINTTAB( 15)F*; " " ;L* ; TAB< 54 )ED$ 
1560 LPRINTTAB< 15 ) 5A* :LPRINTTAB( 15 ) CS$ ; TAB < 31 ) Z* 
1570 LF=4:GOSUB1590:LPRINTTAB<5) "STATUS: ";SV* 
1580 LF=21-PEEK< 16425) :GOSUB1590:LPRINTTAB( 50)USINGL2* 5 AB# : RETURN 

1590 FORLZ=lTOLF:LPRINT NEXT: RETURN 

1600 LF=48-PEEK< 16425) : GOSUB1 590 :LPRINTTAB (5 )MF*? : RETURN 

1610 LPRINTTAB(5) "TOTAL - REMIT THIS AMOUNT TO PAY IN FULL-)- " " TAB(50)USINGL2*; CB 

# : RETURN 
1620 LPRINTTAB(S) "TOTAL-- YOU HAVE CREDIT IN THIS AMOUNT > " 5 TAB< 50)USINGL2$ ; CB 

#: RETURN 
1630 LPRINTTAB( 15) "FIN. CHG. " ; TAB (24 )USIN6L2* ; FC# ; : LPRINTTAB (50 )USINGL2* ; AB# : RETU 

RN 
1640 LPRINTTAB(5)VC*;TAB( 16)VD! 5 TAB (24 ) USINGL2* ; VH# ; : LPRINTTAB(50)USINGL2$ ; AB# : R 

ETURN 
1650 LPRINTTAB(5)VC*5TAB( 15) "PAYMENT" ;TAB( 36) USINGL2* ; VH#; : LPRINTTAB(50)USINGL2* 

;AB#: RETURN 
1 660 RQ#= I NT ( CDBL ( RQ ) * 1 000D0+ . 5 D0 ) / 1 000D0 : F I #= I NT ( CDBL ( F C ! ) * 1 0000D0+ . 5D0 ) / 1 0000D 

0:FC#=0:IFSGN(PB#+PR#)=1ANDFC*="Y"THENFC#=INT< ( PB#+PR#) *FI#*100D0) /100D0:FA 

#=FA#+FC# 

1670 CB#=PB#+TS#+PR#+FC#:IFPB#<MB#THENMP#=PB#ELSEMP#=PB#*RO#/100D0 

1675 IFMP#<MB#ANDPB#>=MB#THENMP#=MB# 

1680 IFCB#<MB#THENMR#=CB#ELSEMR#=CB#*R«#/100 

1685 IFMR#<MB#ANDCB#>=MB#THENMR#=MB# 

1690 IFST<4ANDABS< PR# ) >MP#THENST=1 : GOTOl 730 

1 695 I FST<4ANDABS ( ABS ( PR# ) -MP# ) <=„ 009THENST= 1 : GOTOl 730 

1700 IFST<3ANDABS(PR#XMP#THENST=ST+1 : GOTO 1730 

1710 I FST=3THENST=4 : MR#=CB# : GOTO 1 730 

1720 MR#=CB# 

1730 TS#=0: PR#=0: PB#=CB#: IFCB#<=0ANDST<5THENST=0 

1 740 I FO=3THENTC=0 : GOSUB 1 370 

1750 RETURN 

1760 NL=0:NH=TN 

1770 KS-INT( (NH-ND/2) : IFKS=0THENRETURNELSEN=KS+NL 

1 780 I FN=NHTHENNH= I NT ( ( NH-NL ) /2 ) +NL : GOTO 1 770ELSE I FP ( N » AM ) <0THENN=N+ 1 : GOTO 1 780 

1790 J=ABS<P(N.AM) ) : GOSUB 1350: GOSUB 1 430 : DD=CV I ( DD* ) 

1800 IFAM=1THEN1830 

1810 I FDD=VAL ( L* ) THENL*=DD* : GOTO 1 860 

1820 I FDD>VAL(L$)THENNH=N: GOTOl 770ELSE 1850 

1 830 I FLEFT* ( D 1 $ ? LEN ( L$ ) ) =L*THENL*=D 1 $ : GOTO 1 860 

1 840 I FLEFT* < D 1 * » LEN ( L$ ) ) >L$THENNH=N : GOTO 1 770 

1850 NL=N." GOTO 1770 

1 860 I FS6N ( P ( N» AM ) > =- 1 THENKS=0 : RETURNELSEGOSUB 1 440 : RETURN 

1870 PRINTaVAL(MI-D*(OS* 5 EP*3+l 5 3))f "==>» ; : RETURN 

1880 KR=INT< (K-l )/8)+l :KD=K-B*INT( (K-l )/8)-l 

1 890 F I ELD3 » KD*3 1 AS W* ■> 1 ASV0* » 2ASV 1 $ > 4ASV2* , 4 ASV3* » 4ASV4* , 4ASV5* » 4ASV6* > 1 ASV7$ » 2 

ASV8* ! 2ASV9*> 1ASVX$ 5 1ASVY*i 1ASVZ* s RETURN 

1900 LSETV0*=VA*:LSETV1*=MKI*(VB) :LSETV2*=MKS*( VC ! ) : LSETV3*=MKS* ( VD ! ) :LSETV4*=VE 

$ : LSETV5$=VF$ : LSETV6$=VG* : LSETV7$=VI $ : LSETVX*=VJ* : LSETVY*=VK$ : L3ETVZ$=VL* 

1910 PUT3.KR: RETURN 
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1920 GET3.KR: RETURN 

1930 VA*=V0*!VB=CVI (Vi*> : VC! =CVS(V2*) : VD ! =CVSC V3*) : VE*=V4t: VF*=V5f : V6*=V6*s V1*=V 

7*:VJ=A8C'<VX*) sVK=ASCCVY*> s VL=ASC< VZ*> : VJ*=VX*; VK*=VY*5VL*=VZ* 
1 940 DX ! =VC ! : GOSUB400 : VC*= I N* : V*=VE* : G0SUB245B : VE#=N# : V*=VF* s G0SUB245B : VF#=N# : V* 

=VG* : GOSUB2450 : VG#=N# : VH#=VE#+VF#+VG# : RETURN 
1950 6R=1NTC (6-1 )/25)+l :GD=G-25*INT< (G-l )/25)-l 
i 960 F I ELD i i GD* 1 BASG0* » 2ASG 1 * , 8ASG3$ : RETURN 
1 970 LSETG 1 $=MK I * < 5A ) : LSETG3*=MKD* ( GC# > 
1980 PUT!, GRs RETURN 
1990 GET 1 » GR : RETURN 

2000 GA=CVHG1$> :GC#=CVDCG3*> : RETURN 
2010 PRINT CHR*(29) ;CBR*<30> I : RETURN 
2020 1FPEEKC14312X128THENPOKE16425, 1 : RETURNELSECLSs PRINT3471 » "PRINTER NOT READY 

" : GOSU82060 : CF=2 : RETURN 
2030 IFPEEK( 16425)<54THENRETURNELSECF=2:LPRINTCHR*( 12) : RETURN 
2040 PRINT: PRINT" TYPE a TO EXIT — > "; 

2050 FL=-i :GOSUB150:IFCF=1THENRETURNELSEPRINTCHR*(8) 5 :GOTO2050 
2060 FORTT=!TO2S00sNEXTS'RETURN 
2070 OPEN" I" » 1?PS* 

2080 L I NE I NPUT# 1 > N* : L I NE I NPUT# 1 » A* : L I NEI NPUTtt 1 , CZ$ 
2090 L I NEI NPUTtt 1 , PN*: INPUTttl »FC ! »6T, PD» PC) PT? PP:LINEINPUT#1 , GL* 
2100 I NPUTtt l.MBtt 
2110 CLOSE 1 : D I HG# ( 6T ) 
2120 OPEN" 1% 1, PI* 

2130 INPUT#ljTI»TN»F»U»UT»UN*EP»R0» Rl » R2> R3» R4» R5i R6?R7» CV# 
2140 FORN=lTOTN-l : I NPUTtt 1? P<Nj0}jP<N».t)?P(N?2> : NEXT: CLOSE 1 
2150 OPEN" R">2»PD*: RETURN 
2160 OPEN"0"i 1»PI* 

2 1 70 PR I NT# 1 » T I ; TN ; F ; U ; UT ; UN ; EP ; R0 ; R 1 ; R2 ; R3 5 R4 ; R5 5 R6 5 R7 ; ST R* < CV# ) + " D0 " 
2180 FORN=lTOTN-i : PRINTttI » PCNj 0) ; P(N> 1 ) 5 P(N» 2) : NEXT: CLOSE 1 : RETURN 
2190 IFERR/2+l=54THENCLS:PRINTa468i "NO ACCOUNTS ON DATA DISK" : PRINT: PRINT : CLEAR5 

s END 
2200 IFERR/2+l=57THEN2230 
2210 IFERR/2+l=70THENCLS:PRINTS465» "*** INVALID PASSWORD ***" : PRINT : PRINTTAB(20) 

"PROGRAM TERMINATED" : PRINT : CLEAR50:END 
2220 PRINT:PRINTCHR$<30) 5 "UNEXPECTED ERROR CODE " 5 ERR/2+1 5 " IN LINE" 5ERL : 6OSUB204 

0: GOTO 140 
2230 TE=TE+1 : IFTE>5THENCLS:PRINT3404» "** DISK I/O ERROR **" :GOSUB2040:GOTO140ELS 

ERESUME 
2240 DATA" #####"» " #######"»"#######.##+" > "##.#" 
2250 GOSUB2020: I FCF=2THEN440ELSEPOKE 16424 , 52 : POKE 16425 , 1 : CLS 
2260 PRINT8448! " 

< HORIZONTAL ALIGNMENT TEST 

(V)ERTICAL ALIGNMENT TEST 

(A)LIGNMENT TEST FINISHED 

ENTER SELECTION — > "; 
2270 AL*= I NKE Y* : I F AL*< > " H " ANDAL*< > " V " ANDAL* < > " A " THEN2270 

2280 IFAL*="A"THENP0KE16424,67:P0KE16425» 1 :GOTO440ELSEIFAL$="H"THENLPRINT" -X- 
CENTER THE X'S ON THE PERFORATIONS -><-" :GOTO2260 



RADIO SHACK TRS-80 ARS END OF PERIOD PROGRAM PAGE 7 

2290 LPRINTCHR*( 12) :G0T02260 

2300 DATA "NOTHING DUE / CREDIT" 

2310 DATA" CURRENT BALANCE DUE" 

?.<20 DATA "30-60 DAYS OVERDUE" 

2330 DATA "60-90 DAYS OVERDUE" 

2340 DATA "PAST 90 DAYS OVERDUE" 

2350 DATA" CREDIT SUSPENDED" 

2360 DATA" LEGAL ACTION PENDING" 

2370 DATA" INACTIVE ACCOUNT" 

2380 DATA " 256000320384448640 " 

2390 N#=VAL ( 1 N* ) : Wtt=ABS ( N# ) * 1 00 : V*= " " 

2400 X=W#/D 1 # : W#=W#-X *D 1 # : V*=V*+CHR* ( X- ( N# <0 ) * 1 28 ) 

24 1 X=W#/D2# : W#=W#~X*D2# : V*=V*+CHR* ( X ) 

2420 X=W#/D3# : W#=W#-X*D3# : V*=V*+CHR* ( X ) 

2430 V*=V$+CHR* < W# ) 

2440 RETURN 

2450 W#= ( ASC ( M I D* ( V* •> 1 » 1 ) ) AND 1 27 ) *D 1 #+ASC ( M I D* ( V* , 2 , 1 ) ) *D2#+ASC ( H I D* ( V* , 3 , 1 ) ) *D3 

#.+ASC<MID*<V*>4» 1 ) ) 
2460 IFASC(LEFT*(V*? 1 ) ) >127THENW#=-W# 
2470 N#=W#/100 
2480 RETURN 
2490 CLS:PRINT3982 5 " (PRESS <3> TO REDO )" -, : PRINT3384> " ENTER THIS MONTH'S MESSAGE 

(2 LINES) : " ; 
2500 MF$=" ":MS*=" " : PRINT3448? " 1ST LINE: "5 

2510 FL=41 :GOSUB150: IFCFO0THEN2490ELSEIFIN$<> " " THENMF$==IN* 
2520 PRINT3512-I "2ND LINE: "; 

2530 FL=41 5GOSUB150: IFCFO0THEN2490ELSEIFIN*<>" " THENMS$=IN* 
2540 PRINT3640, "PERIOD ENDING DATE (PRESS <ENTER> FOR TODAY'S DATE):" 
2550 FL=8:GOSUB150: IFCFO0THEN2490ELSEIFIN$=" " THENPRINTCHR* (29) ; : ED*=LEFT* ( TIME* 

» 8) : PRINTED$ELSEED$=IN* 
2560 GOSUB340: IFCF=2THEN2540 

2562 PRINTS768? "BILLING DATE (PRESS <ENTER> FOR TODAY'S DATE):" 
2564 FL=8 : GOSUB150: IFCFO0THEN2490ELSEIFI N*=" " THENPRINTCHR$ ( 29 ) ; : EF*=LEFT* ( TIME$ 

»8) :PRINTEF*ELSEEF$=IN* 
2566 GOSUB340: IFCF=2THEN2562ELSERETURN 
2570 CLS:PRINT3472» "PRINTING STATEMENTS" : RETURN 
2580 K=DI 

2590 GOSUB1880:GOSUB1920:O=CVI ( V9$ ) : IFV7*=" A"ORV0*=" B" THEN2620ELSEGOSUB1930 
2600 AB#=AB#+VH# : I FVA*= " S " THENGOSUB 1 640ELSEGOSUB 1 650 
2610 IFPEEK(16425)>46THENGOSUB2790 
2620 IFS=0THEN2630ELSEK=Q : GOTO2590 

2630 IFPEEK(16425)>45THENGOSUB2790sRETURNEL3ERETURN 
2640 SV$=TG*s RETURN 
2650 SV$=TH$: RETURN 
2660 SV$=TI$s RETURN 
2670 SV$=TJ*: RETURN 
2680 SV$=TK$: RETURN 
2690 SV*=TL* : RETURN 
2700 SV*=TM$: RETURN 
2710 SV$=TN$: RETURN 
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2720 0PEN"R"»3»PT* 

2730 I N$=LEFT* < T 1 ME* * 8 ) s GOSUB340 : VC ! =DX ! : VD i =- 1 s VA*= " F " 

2740 VB=-1 :VE#=FA#:VF#=0:VG#=0:VH#=FA#."VJ*=CHR*(3) sVK*=CHR*(0) s VL*=CHR$ (0) tVI$= 

N" : GOSUB770 : CV#=CV#+FA# 
2750 K=UN : GOSUB 1 880 : GOSUB 1 920 : GOSUB 1 900 : CL0SE3 : UN=UN+ 1 : UT=UT+ 1 
2760 OPEN"R"> 1»PG* 

2770 G= 1 s GOSUB 1 950 : GOSUB 1 990 : GOSUB2000 : GC#=GC#+FA# : GOSUB 1 970 
2780 G=3 : GOSUB 1 950 : GOSUB 1 990 : GOSUB2000 : GC#=GC#+FA# : GOSUB 1 970 : CLOSE 1 : RETURN 
2790 LF=48-PEEK( 16425) s GOSUB 1590 
2800 LPRINTTAB( 10) "CONTINUED ON NEXT PAGE"; 
2810 LPRINTTAB<50) "**********" 

2820 LPRINTLE*:P0KE16425? 1 :LF=7-PEEK( 16425 ) : GOSUB 1590 
2830 LPRINTTAB(45)USINGL0$5 ID? :LPRINTTAB(54)EF$ 
2840 LF=14-PEEK< 16425) : GOSUB 1590 

2850 LPR I NTTAB< 20) "CONTINUED FROM PREVIOUS PAGE" 
2860 6OSUB1580: RETURN 
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IMPORTANT NOTICE 

ALL RADIO SHACK COMPUTER PROGRAMS ARE DISTRIBUTED ON AN 

"AS IS" BASIS WITHOUT WARRANTY. 

Radio Shack shall have no liability or responsibility to customer or any other 
person or entity with respect to any liability, loss or damage caused or alleged to 
be caused directly or indirectly by computer equipment or programs sold by 
Radio Shack, including but not limited to any interruption of service, loss of 
business or anticipatory profits or consequential damages resulting from the use 
or operation of such computer or computer programs. 

NOTE: Good data processing procedure dictates that the user test the program, 
run and test sample sets of data, and run the system in parallel with the 
system previously in use for a period of time adequate to insure that 
results of operation of the computer or program are satisfactory. 
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